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APPENDIX  D 


PREPROCESSOR  FORTRAN  SOURCE  CODE 


C  *  ATU  LCC  MODEL  PREPROCESSOR 

C  * 

C  *  THIS  PREPROCESSOR  PERFORMS  TWO  BASIC  FUNCTIONS: 


*  1)  CREATING  AN  ITEM- IN-PLATFORM  MATRIX  IN  UNIT  21  GIVEN: 

LRU -IN -PLATFORM  MATRIX  (UNIT  25)  AND 

*  SRU- IN-LRU  MATRIX  (UNIT  26). 

*  2)  CHECKING  UNITS  18,19,20,22,25  AND  26  FOR  INPUT  FILE 

FORMAT  ERRORS.  IN  PARTICULAR,  THE  FOLLOWING  ERROR 

*  CONDITIONS  ARE  CHECKED  FOR: 


-  MULTIPLE  CARDS  FOR  AN  ITEM  NUMBER 

-  MORE  ITEMS  IN  A  FILE  THAN  IN  THE  INITIAL  FILE 

-  ITEMS  NOT  APPEARING  IN  THE  INITIAL  ITEM  FILE  BUT 
FOUND  IN  OTHER  FILES 

-  FEWER  ITEMS  IN  A  FILE  THAN  IN  THE  INITIAL  FILE 

-  ITEMS  NOT  APPEARING  IN  A  FILE  BUT  NOT  FOUND  IN  THE 
INITIAL  FILE 

-  SRU  ITEMS  IN  LRU  ITEM  LISTS 

-  LRU  ITEMS  IN  SRU  ITEM  LISTS 

-  ITEM  NUMBERS  OUT  OF  SEQUENCE  IN  A  FILE 

-  ITEM  INDICIES  OUT  OF  RANGE 

-  MORE  THAN  THE  MAXIMUM  NUMBER  OF  ITEMS  IN  THE  INITIAL 
FILE 

-  MORE  THAN  THE  MAXIMUM  NUMBER  OF  SRUS  IN  AN  LRU  IN 
THE  LRU/ SRU  CROSS  REFERENCE  FILE  (UNIT  12) 

C  *  -  END  OF  FILE  FOUND  BEFORE  THE  END  OF  THE  SRU  LIST 

C  *  FOR  AN  LRU  IN  THE  LRU/SRU  CROSS  REFERENCE  FILE 

C  *  -  MISSING  END-OF-FILE  MARKER  IN  A  FILE 

C 


COMMON  ITEM (150,2)  ,.NERR  ,  YET (150)  ,LASTI  ,MAX1 
LOGICAL  ITEM, YET, WROTE 

REAL  NITEM( 150,5) , INPVEC(28) ,XC0L1 ,QPA(30) 

INTEGER  IN  ITEM ( 5 ) 

I NTEGER  I  ,  I L , I  LOOP , NDS , K , NP , LRU , NUM  T TM , NUMLRU , I SRU ( 30 ) 
INTEGER  N'ERR  ,  LAST  I ,  MAX  I ,  MAXNDS ,  MAXNP  ,  NRM ,  I RM ,  NRMM 1  ,1PAGE 
DATA  STAR/ 1H*/, BLANK/ 1H  / 


1 


1  F0RMATU1  , 13.39X,  12) 

2  FORMAT ( A 1 ,13, I  2  F4 . 2 ) 

3  FORMATiA) ) 

4  FORMAT l.  A'  ,  !  3  , 1  2 , 1  A  (  I  3  ,F2 . 0) ) 

5  FORMAT! A 1 , 13) 

b  FORMAT! /24H  PROCESSING  COMPLETED.  ,I3,27H  ERRORS  DETECTED.) 

7  FORMAT ( /49H  OUTPUT  FILE  (ITEMS  IN  PLATFORMS)  NOT  WRITTEN  DUE/ 

+  17X,  10HT0  ERRORS  .  ? 

8  FORMAT! ' 53H  OUTPUT  FILE  (ITEMS  IN  PLATFORMS)  WRITTEN  TO  UNIT  21./) 

9  FORMAT! / 1 H  ,13,10!!  LRUS  AND  ,I3,29H  SRUS  READ  FROM  INITIAL  FILE.) 

10  FORMAT! /4  1H  ATU  LCC  PREPROCESSOR  --  EXECUTION  BEGINS) 

11  F0R.MAT1A1  ,  13, 1214) 

12  FORMAT! 1H  ,  15.12F7.2) 

1 3  FORMAT  ( 1 H 1  /  /  / /  /  /  /  /  !  INI !  Hill! 

+44X, 1H* ,42X , 1H--7 

+44X.44H"  ATU  LIFE  CYCLE  COST  MODEL  ••/ 

+44X.44H*  PREPROCESSOR  ••/ 

+44X ,  1H---.42X,  1H*/ 

14  FORMAT! 1H1 ,6X,44H  PREPROCESSOR  INPUT  FILE:  DATA  FILE  1  IB  - -  , 
+35HLRU  ITEM  CONFIGURATION  ON  PLATFORMS///) 

15  FORMAT! 1H1 .4X.45H  PREPROCESSOR  OUTPUT  FILE:  DATA  FILE  1 1 A  --  , 

+3 1HITEM  CONFIGURATION  ON  PLATFORMS///) 

16  FORMAT (Al, 13, 12, 12) 

17  FORMAT ( A 1 ,5X. 14(13. F2.0)) 

18  FORMAT! 1 H 1 / 30X , 70HPREPR0CESS0R  INPUT  FILE:  DATA  FILE  8B  --  LRU/SR 
+U  CROSS  REFERENCE  DATA) 

1 9  FORMAT  ( 5 9X ,  1 1 H  l  CONT I  NUF.D )  /  /  ) 

20  FORMAT !//9X,4H.---SRU,4X.  1 2HSRU  SRU  ,3X,12HSRU  SRU  ,3X,12HSRU 
+  SRU  .3X.12HSRU  SRU  ,  3X, 12HSRU  SRU  , 3X , 12HSRU  SRU 
+,3X, 12HSRU  SRU  / IX , 3HLRU , 5X , 5HTYPES , 3X , 12H INDEX  QUAN-.3X.12HI 
+NDEX  QUAN- ,3X. 12H INDEX  QUAN- , 3X , 12H INDEX  QUAN- , 3X . 12H INDEX  QUA 
+N- ,3X, 12H INDEX  QUAN- ,3X. 12H INDEX  QUAN-/ IX, 5H INDEX , 3X , 6HII  LRU.2X 
+.12HN0.  TITY  .3X.12HNO.  T1TY  .3X.12HNO.  TITY  .3X.12HN0. 

+  TITY  .3X.12H.NO.  TITY  .3X.12HNO.  TITY  .3X.11HN0.  TITY/1X 
+  , 4H ( I L 1 , 4X , 5H (NOS ) , 3X , 12H(ISRU)  (QPA) , 3X , 12H ( I SRU )  (QPA) ,3X, 12HIIS 
+RU)  ( QPA  )  , 3X , 12H( I SRU  )  (QPA) . 3X , 12H( ISRU)  (QPA) . 3X , 1 2H( ISRU)  (QPA) 
+,3X, 12H( I SRU)  ! QPA) / / > 

2 1  FORMAT ( 2X , I  3 . 5X . I  3 , 5X . 1 3 . 3X . F4 . 0 . 5X , 1 3 . 3X , F4 . 0 , 5X , 1 3 , 3X , F4 . 0 , 5X . I  3 
+.3X.F4.0.5X, I3.3X.F4.0.5X.I3,3X.F4.0,5X,I3,3X,F4.0/18X,I3,3X,F4.0, 
+5X , I  3 , 3X , F4 . 0 , 5X, 1 3 , 3X ,F4 . 0 , 5X , 13 , 3X, F4 , 0 , 5X , 13 , 3X ,F4 , 0 , 5X , 1 3 , 3X , F 
+4 . 0 . 5X . 1 3 , 3X , F4 , 0 ) 

22  FORMAT ( 18X , 1 3 , 3X . F4 . 0 , 5X . 1 3 , 3X . F4 . 0 . 5X , 1 3 , 3X , F4 . 0 , 5X . 1 3 

+  , 3X , F4 . 0 . 5X , I  3 . 3X . F4 . 0 . 5X , 1 3 , 3X , F4 . 0 , 5X , I  3 , 3X , F4 . 0 / 1 8X , I  3 , 3X , F4 . 0 . 
+5X , I  3 . 3X . F4 . 0 . 5X , I  3 , 3X ,F4 . 0 , 5X . 1 3 , 3X , F4 . 0 . 5X . 1 3 . 3X . F4 . 0 , 5X . I  3 , 3X , F 
+4.0.5X, I3.3X, F4.0) 
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23  FORMAT (7H  ITEM, 16X.40HAVERAGE  NUMBER  OF  LRU  ITEMS  INSTALLED  ON, 

+  14H  PLATFORM  TYPE/ ,8H  INDEX , 15X , 50 ( 1H- )/, 7H  (I ) , 14, 1 117//) 

24  FORMAT ( 7H  ITEM , 16X , 36HAVERAGE  NUMBER  OF  ITEMS  INSTALLED  ON, 

+  14H  PLATFORM  TYPE/, 8H  INDEX , 15X , 50 ( 1H- )/, 7H  (I ), 14, 1117//) 

25  FORMAT(/45H  **********  THE  REMAINDER  OF  FILE  8B  NOT  READ) 

C  MAXI  HOLDS  THE  MAXIMUM  NUMBER  AND  INDEX  OF  ITEMS 

MAXI =150 

C  MAXNDS  HOLDS  THE  MAXIMUM  NUMBER  OF  SRUS  IN  AN  LRU 
MAXNDS=30 

C  MAXNP  HOLDS  THE  MAXIMUM  NUMBER  OF  PLATFORM  TYPES 


MAXNP=5 

NERR=0 
NUMLRU=0 
NL’MITM=0 
WROTE= . FALSE . 

DO  30  NP=1, MAXNP 

C  INITEM  WILL  HOLD  THE  ITEM- IN -PLATFORM  DATA  IN  INTEGER  FORMAT 

INITEM (NP)=0 
30  CONTINUE 

DO  36  ILOOP=l , MAXI 

C  N ITEM (I ,NP)  WILL  HOLD  THE  ITEM- IN -PLATFORM  DATA 

DO  33  NP=1, MAXNP 

NITEM(ILOOP,NP)=0. 

33  CONTINUE 

C  ITEM (1,1)  WILL  INDICATE  WHETHER  ITEM(I)  WAS  IN  INITIAL  FILE 

ITEM(ILOOP, 1)=. FALSE. 

C  ITEM (I ,2)  IS  .TRUE.  IF  ITEM(I)  IS  AN  LRU 

ITEM(ILOOP,2)=. FALSE. 
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c 


YET ( I )  WILL  INDICATE  WHETHER  ITEM(I)  WAS  IN  A  PARTICULAR  FILE 


YET ( I  LOOP )  =  . FALSE. 

36  CONTINUE 

C  PLEASE  ANNOUNCE  US 

WRITE (7 , 13) 

WRITE (6 , 101 

C  READ  IN  THE  INITIAL  DATA  FROM  UNIT  18 

REWIND  18 
LAST 1=0 

DO  50  1 LOOP= 1 , MAX I 

READ( 18,11  XCOL1 , I , LRU 

IF(XC0L1 . EQ . STAR )  GO  TO  100 

IF  (I . GT . 0 . AND . I . LE . MAX 1 1  GO  TO  40 

C  ITEM  INDEX  OUT  OF  RANGE.  NOTIFY  AND  SKIP  TO  NEXT  CARD 

CALL  ERROR (8 , I , 18) 

GO  TO  50 

40  CONTINUE 

ITEM (I , 1)=.TRU£. 

C  CHECK  IF  THIS  ITEM  IS  AN  LRU.  IF  SO,  MARK  AND  COUNT  IT 

IF (LRU . NE . 1)  GO  TO  45 
ITEM( I , 2 )= . TRUE . 

IF  ( . NOT . YET ( I ) )  NUMLRU-NUMLRU+ 1 

45  CONTINUE 

IF  ( . NOT . YET (II)  NUM I TM=NUM I TM+ 1 
CALL  CHECK1 (1,18) 

50  CONTINUE 

C  IF  WE  GET  HERE  THEN  THERE  WERE  TOO  MANY  RECORDS  IN  THE  FILE 
CALL  ERROR! 11,0,18) 

100  CONTINUE 
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^ 


I  =NUM  I TM  -  N'UMLRU 
WRITE (6, 9)  NUMLRU , I 


READ  IN  THE  LRU  IN  PLATFORM  MATRIX 

REWIND  25 
CALL  CLRYET 

LABEL  THE  INPUT  TABLE 

WRITE (7, 14) 

WRITE (7 ,23)  ( I , 1=1 ,MAXNP) 

I PAGE=0 
LASTI=0 

DO  200  I LOOP=l .NUMLRU 

READ (25, 2)  XCOL1, IL, (NITEM(IL.NP) ,NP=1 , MAXNP ) 

IF  (XCOL1 . NE . STAR)  GO  TO  120 

IF  WE  FOUND  A  STAR,  THEN  THERE  ARE  TOO  FEW  ITEMS  IN  THIS  FILE 
CALL  ERROR ( 13 , IL, 25) 

NOW  CHECK  WHICH  ITEMS  ARE  MISSING  FROM  THIS  FILE 
DO  110  IL=1,MAXI 

IF  ( ITEM( IL, 2 ) . AND. . NOT. YET ( IL) )  CALL  ERR0R(4 , I L, 25 ) 
CONTINUE 

ESCAPE.  JUMP  TO  NEXT  FILE 
GO  TO  210 
CONTINUE 

ECHO  PRINT  THE  FILE 

WRITE (7 , 12)  IL, (NITEM(IL.NP) ,NP=1 , MAXNP) 

IPAGE=IPAGE+1 

IF  (IPAGE.LT. 40)  GO  TO  130 
WRITE (7, 14) 

WRITE (7 , 19) 

WRITE(7 ,23)  (J1,J1=1, MAXNP) 

IPAGE=0 


CONTINUE 


n  o 


IF  (IL. GT.O. AND. IL.LE. MAXI)  GO  TO  140 

C  ITEM  INDEX  Ol'T  OF  RANGE.  NOTIFY  AND  SKIP  TO  NEXT  CARD 

CALL  ERR0R(8 , I L , 25 ) 

GO  TO  200 
140  CONTINUE 

CALL  CHECK1 ( I L , 25 ) 

CHECK  IF  THIS  LRU  ITEM  IS  MARKED  AS  AN  LRU  IN  INITIAL  FILE 
(THIS  FILE  SHOULD  HAVE  ONLY  LRU  ITEMS) 

IF  ( ITEM ( IL , 1 ) . AND . . NOT . ITEM! I L, 2) )  CALL  ERROR( 3 , IL, 25 ) 

200  CONTINUE 

C  WE  SHOULD  BE  AT  THE  BOTTOM  OF  THE  FILE. 

READ (25,2)  XC0L1 , IL, ( 1NPVEC(J1 ) , J 1=1 ,MAXNP) 

IF  (XC0L1  .  F.Q  .  STAR  )  GO  TO  210 

C  WE  WEREN'T.  READ  ON,  ERROR  CHECKING  AS  BEFORE. 

CALL  ERRORf 12,0,25) 

206  CONTINUE 

IF  (IL. GT.O. AND. IL.LE. MAXI)  GO  TO  207 

C  ITEM  INDEX  OUT  OF  RANGE.  NOTIFY  AND  SKIP  TO  NEXT  RECORD 

CALL  ERROR (8 , IL.25) 

GO  TO  208 

207  CONTINUE 

C  NOW  THAT  WE  KNOW  THAT  WE  HAVE  A  LEGAL  SUBSCRIPT 

DO  998  J 1 = 1 , MAXNP 

NITEM( I L, J1 )=INPVEC ( J 1 ) 

998  CONTINUE 


n  o 


c 


ECHO  PRINT  THE  FILE 


IPAGE=IPAGE+1 

WRITE(7 ,12)  IL, (NITEM(IL.NP) ,NP=1 ,MAXNP) 
IF  (IPAGE.LT. 40)  GO  TO  150 
WRITE (7, 14) 

WRITE (7 , 19) 

WRITE(7 ,23)  ( J 1 , Jl=l ,MAXNP) 

IPAGE=0 


i 


150  CONTINUE 

CALL  CHECK 1(IL, 25) 

CHECK  AGAIN  IF  THIS  LRU  ITEM  IS  MARKED  AS  AN  LRU  IN  INITIAL 
FILE  (THIS  FILE  SHOULD  HAVE  ONLY  LRU  ITEMS) 

IF  (ITEM(IL, 1) .AND. .NOT. ITEM(IL,2))  CALL  ERROR(3,IL,25) 

208  CONTINUE 

READ(25 , 5 )  XCOLl.IL 

C  CHECK  IF  WE  ARE  AT  THE  END-OF-FILE  MARKER  OR  END  OF  DATA 

IF  (XC0L1. NE. STAR. AND. IL.NE.O)  GO  TO  206 
C  IF  WE  RAN  OUT  OF  DATA  WITHOUT  A  MARKER,  NOTIFY 

IF  (XC0L1 . NE . STAR)  CALL  ERR0R(9 , 0 , 25 ) 

210  CONTINUE 

C  READ  IN  THE  LRU/SRU  CROSS  REFERENCE  TABLE 

REWIND  26 
CALL  CLRYET 

C  LABLE  THE  OUTPUT 

WRITE(7, 18) 

WRITE (7 ,20) 

IPAGE=0 

LAST 1=0 
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< 


DO  300  I  LOOP=  1 ,  NUMLRU 

READC26 ,4)  XCOL1  , IL.NDS, (  ISRU(K)  ,QPA(K)  ,K=1  ,  14) 

IF  (XC0L1 . NE . STAR)  GO  TO  225 

C  IF  WE  FOUND  A  STAR,  THEN  THERE  ARE  TOO  FEW  ITEMS  HERE 

CALL  ERROR (13, 0,26) 

C  ESCAPE.  JUMP  TO  NEXT  FILE 

GO  TO  310 

225  CONTINUE 

C  ECHO  PRINT  THE  DATA 

IPAGE=IPAGE+1 

WRITE (7 ,21)  IL.NDS, (ISRU(Jl) ,QPA(J1) ,J1=1 , 14) 

IF  (IPAGE.LT. 40)  GO  TO  226 
WRITE (7, 18) 

WRITE (7, 19) 

WRITE (7, 20) 

IPAGE=0 

226  CONTINUE 

IF  (IL. GT.O. AND. IL.LE. MAXI)  GO  TO  227 

C  INDEX  IS  OUT  OF  RANGE.  NOTIFY  AND  SKIP  TO  NEXT  RECORD 

CALL  ERROR ( 8, I L, 26) 

GO  TO  300 

227  CONTINUE 

CALL  CHECK1 ( IL.26) 

C  CHECK  IF  THIS  LRU  ITEM  IS  MARKED  AS  AN  LRU  IN  INITIAL  FILE 

IF  ( ITEM ( I L, 1 ) . AND . . NOT . ITEM ( I L, 2) )  CALL  ERR0R(3 , IL,26) 

C  CHECK  IF  THE  NUMBER  OF  SRUS  IN  THIS  LRU  EXCEEDS  THE  LIMIT 

IF  (NDS.LE.MAXNDS)  GO  TO  228 
CALL  ERROR ( 15 , I L, 26) 

8 


OU  CM  CJ  U  C4  u  U  CJ 


c 

c 

c 


SET  N’DS  TO  MAXNDS .  THIS  WILL  GIVE  SOME  ERROR  CHECKING 
OF  THE  SRU  LIST.  NOTE  THAT  ADDITIONAL  CARDS  WILL  BE  READ 
AS  LISTS  FOR  AN  ITEM  INDEXED  ZERO,  GENERATING  MESSAGES. 


NDS=MAXN'DS 


228  CONTINUE 

READ  IN  THE  REST  OF  THE  SRU  DATA,  OFF  OF  SUBSEQUENT  CARDS 
IF  NECESSARY 

J2=14 

J3=14 

30  CONTINUE 

CHECK  IF  THERE  ARE  MORE  CARDS  TO  READ 

IF( .NOT. (NDS.GT.J3. AND. NDS.LE. MAXNDS))  GO  TO  240 
J2=J3+1 
J3=J2+13 

READ (26, 17)  XC0L1 , ( ISRU( J1 ) ,QPA( J1 ) , J1=J2 , J3) 

WRITE (7 ,22)  (ISRU(Jl) ,QPA(J1) ,J1=J2,J3) 

IF  (XC0L1 . NE .STAR)  GO  TO  230 

CALL  ERROR ( 16, I L, 26) 

ESCAPE  TO  NEXT  FILE 

GO  TO  310 

40  CONTINUE 

THIS  NEXT  SET  OF  CODE  IS  THE  ONLY  CALCULATION  DONE  BY  THIS 
PROGRAM.  IF  THERE  ARE  ANY  SRL'S  IN  THIS  LRU,  THEN  THEY  ARE 
ADDED  INTO  THE  ITEM- IN -PLATFORM  MATRIX 

IF  (NDS.EQ.O)  GO  TO  250 
DO  248  K= 1 , NDS 

IF  (ISRU(K). GT.O. AND. ISRU(K).LE. MAXI)  GO  TO  244 

C  INDEX  OUT  OF  RANGE.  NOTIFY  AND  JUMP  TO  NEXT  SRU 

CALL  ERROR (6 , IL.26) 

GO  TO  248 

244  CONTINUE 
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C  CHECK  IF  THIS  SRU  ITEM  APPEARS  IN  THE  INITIAL  FILE 

IF  ( . NOT . I TEM ( I SRU ( K ) , 1 ) )  CALL  ERROR (2 ,K , 26) 

C  CHECK  IF  THIS  SRU  ITEM  IS  MARKED  AS  AN  SRU  IN  INITIAL  FILE 

IF  ( ITEM( 1SRU (K) , 1) . AND . ITEM( ISRU(K) ,2) )  CALL  ERROR (7 ,K,26) 
DO  246  NP= 1 , MAXNP 

N ITEM (I SRU (K) ,NP)=NITEM( ISRU(K) ,NP)+QPA(K)*NITEM(IL,NP) 
246  CONTINUE 

248  CONTINUE 

250  CONTINUE 

300  CONTINUE 

C  THIS  SHOULD  BE  THE  END  OF  THE  FILE 

READ (26, 3)  XC0L1 

IF  (XC0L1 .EQ.STAR)  GO  TO  305 

C  IT  WASN’T.  NOTIFY,  AND  SKIP  TO  NEXT  FILE 

CALL  ERROR( 12,0,26) 

WRITE(7 ,25) 

305  CONTINUE 

C  CHECK  TO  SEE  IF  WE  MISSED  ANY  LRUS  ALONG  THE  WAY 
DO  310  I L - 1 , MAX I 

IF  ( ITEM( IL, 2 ) . AND . . NOT . YET ( IL) )  CALL  ERR0R(4 , IL , 26) 

310  CONTINUE 

C  WRITE  OUT  THE  ITEM  IN  PLATFORM  FILE  TO  UNIT  21  AND  THE  OFFLINE 

C  PRINTER  ONLY  IF  WE  HAVE  NOT  ENCOUNTERED  ANY  ERRORS  YET. 

IF  (NERR.NE.O)  GO  TO  314 

C  'WROTE'  FLAGS  THAT  WE  WROTE  THE  FILE 

WROTE=.TRUE . 

REWIND  18 


c 


LABEL  THE  OUTPUT 


WRITE (7 , 15) 

WRITE(7 ,24)  (I , 1=1 ,MAXNP) 

IPAGE=0 

DO  313  ILOOP=l , NUMITM 
READ ( 18 , 5 )  XCOLl.I 

C  PRINT  WITHOUT  DECIMAL  POINT  IN  A  FIELD  OF  WIDTH  FOUR 

DO  312  NP=1,MAXNP 

INITEM (NP)=INT(0 . 5+100*NITEM(I ,NP) ) 

312  CONTINUE 

IPAGE=IPAGE+1 

WRITE (21, 11)  BLANK, I , ( INITEM (NP) ,NP=1, MAXNP) 

WRITE ( 7 , 1 2 )  I , (NITEM ( I , NP) , NP=1 , MAXNP) 

IF  (IPAGE.LT. 40)  GO  TO  313 
WRITE (7, 15) 

WRITE(7 , 19) 

WRITE(7 ,24)  (J1,J1=1, MAXNP) 

IPAGE=0 

313  CONTINUE 

WRITE (2 1,3)  STAR 

314  CONTINUE 

C  CHECK  THIS  SUPPORT  EQUIPMENT  PER  ITEM  FILE  FOR  CONSISTENCY 

REWIND  20 
CALL  CLRYET 

DO  400  I L00P=1, NUMITM 

READ(20 , 16)  XC0L1 , I ,NRM , IRM 
I F ( XCOL 1 . NE . STAR )  GO  TO  320 

C  IF  WE  FOUND  A  STAR  THEN  THERE  ARE  TOO  FEW  ITEMS  HERE 

CALL  ERROR ( 13,0,20) 

C  ESCAPE.  JUMP  TO  NEXT  FILE 

GO  TO  410 
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320  CONTINUE 

IF  ( I . GT . 0 . AND . I . LE . MAXI )  GO  TO  340 

C  INDEX  OUT  OF  RANGE.  NOTIFY  AND  GO  TO  NEXT  INDEX  RECORD 

CALL  ERROR (8, I, 20) 

GO  TO  345 

340  CONTINUE 

CALL  CHECK 1 (1,20) 

345  CONTINUE 

C  SKIP  NRM-1  LINES  TO  GET  TO  THE  NEXT  ITEM  INDEX 

C  THIS  GOTO  IS  TO  A  POINT  INSIDE  OF  THE  FOLLOWING  DO  LOOP, 

C  ONLY  TO  INSURE  CHECKING  OF  THE  CURRENT  IRM  VALUE. 

IF  (NRM.EQ.I)  GO  TO  350 

NRMM1=NRM- 1 
DO  360  K= 1 , NRMM 1 

READ (20 ,16)  XCOL 1 , I L , NRM , I RM 

IF  ( I L . EQ . 0 . AND . NRM . EQ . 0 )  GO  TO  350 
CALL  ERROR( 10,1,20) 

C  IT  IS  TOO  DIFFICULT  TO  ANTICIPATE  EXACTLY  WHAT  THE 

C  ERROR  WAS  AND  TO  LOCATE  THE  NEXT  "CORRECT”  RECORD, 

C  SO  THE  REST  OF  THE  FILE  IS  NOT  READ. 

GO  TO  415 

350  CONTINUE 

IF  (IRM.LT. l.OR. IRM.GT.4)  CALL  ERR0RC14 , I ,20) 

360  CONTINUE 

400  CONTINUE 


n  ci 


READ(20 , 16)  XC0L1 , 1 , NRM , IRM 
C  WF.  SHOULD  BE  AT  THE  END  OF  THE  FILE 
IF  (XCOL1 . EQ . STAR)  GO  TO  410 

C  WE  WEREN'T.  NOTIFY,  AND  READ  ON,  ERROR  CHECKING 

CALL  ERROR (12, 0,20) 

402  CONTINUE 

IF  (I .GT.O.AND. I .LE.MAXI)  GO  TO  404 

C  INDEX  OUT  OF  RANGE.  NOTIFY,  AND  GO  TO  NEXT  RECORD 

CALL  ERR0R(8 ,1,20) 

GO  TO  406 

404  CONTINUE 

CALL  CHECKKI  ,20) 

406  CONTINUE 

C  SKIP  NRM- 1  LINES  TO  GET  TO  THE  NEXT  ITEM  INDEX 

THIS  GOTO  IS  TO  A  POINT  INSIDE  OF  THE  FOLLOWING  DO  LOOP, 
ONLY  TO  INSURE  CHECKING  OF  THE  CURRENT  IRM  VALUE. 

IF  (NRM . EQ . 1)  GO  TO  408 

NRMM 1=NRM- 1 
DO  409  K= 1 , NRMM 1 

READ (20 , 16 )  XC0L1 , IL.NRM, IRM 

IF  ( I L . EQ . 0 . AND . NRM . EQ . 0 )  GO  TO  408 
CALL  ERROR( 10, I ,20) 

C  IT  IS  TOO  DIFFICULT  TO  ANTICIPATE  EXACTLY  WHAT  THE 

C  ERROR  WAS  AND  TO  LOCATE  THE  NEXT  "CORRECT"  RECORD, 

C  SO  THE  REST  OF  THE  FILE  IS  NOT  READ. 

GO  TO  510 

408  CONTINUE 

IF  (IRM.LT. 1 .OR. IRM.GT.4)  CALL  ERROR( 14 , 1  ,  20) 

409  CONTINUE 


READ(20 , 16)  XCOL 1,1, NRM , I RM 
C  CHECK  IF  AT  END  OF  FILE  OR  END  OF  DATA 

IF  (XCOL1 .  NE  .  STAR  .  AND  .  I  .  NF. .  0)  GO  TO  402 
C  IF  AT  END  OF  DATA  BUT  NOT  END  OF  FILE  THEN  MARKER  MISSING 

IF  (XCOL1 . NE . STAR )  CALL  ERROR(9,O,20) 

410  CONTINUE 

C  CHECK  IF  WE  MISSED  ANY  ITEMS  ALONG  THE  WAY 
CALL  CHF.CK2(20) 

415  CONTINUE 

C  CHECK  THIS  BY-ITEM  FILE  FOR  CONSISTENCY 

REWIND  22 
CALL  CLRYET 

DO  500  IL00P=1 .NUMITM 
READ (22 , 5 )  XCOLl.I 
IF (XC0L1 . NE . STAR )  GO  TO  420 

C  IF  WE  FOUND  A  STAR  THEN  THERE  ARE  TOO  FEW  ITEMS  HERE 

CALL  ERROR (13,0,22) 

C  ESCAPE.  JUMP  TO  NEXT  FILE 

GO  TO  510 

420  CONTINUE 

IF  ( I . GT . 0 . AND . I . LE . MAX I )  GO  TO  440 

C  INDEX  OUT  OF  RANGE.  NOTIFY  AND  GO  TO  NEXT  RECORD 

CALL  ERROR (8, I ,22) 

GO  TO  500 

440  CONTINUE 

CALL  CHECKKI  .22) 

500  CONTINUE 
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READ (22, 5)  XC0L1.I 


C  WE  SHOULD  BE  AT  THE  END  OF  THE  FILE 
IF  (XCOL1 . EQ . STAR)  GO  TO  510 

C  WE  WEREN'T.  NOTIFY,  AND  READ  ON,  ERROR  CHECKING 

CALL  ERROR( 12,0,22) 

505  CONTINUE 

IF  (I .GT.O.AND. I .LE.MAXI)  GO  TO  50? 

C  INDEX  OUT  OF  RANGE.  NOTIFY  AND  GO  TO  NEXT  RECORD 

CALL  ERROR (8,1 ,22) 

GO  TO  508 

507  CONTINUE 

CALL  CHECKKI  ,22) 

508  CONTINUE 

READ (22, 5)  XC0L2.I 

C  CHECK  IF  AT  END  OF  FILE  OR  END  OF  DATA 

IF  (XC0L1 . NE . STAR . AND . I . NE . 0 )  GO  TO  505 
C  IF  AT  END  OF  DATA  BUT  NOT  END  OF  FILE  THEN  MARKER  MISSING 

IF  (XC0L1 . NE . STAR)  CALL  ERROR (9 , 0 , 22) 

510  CONTINUE 

C  CHECK  IF  WE  MISSED  ANY  ITEMS  ALONG  THE  WAY 
CALL  CHECK2 ( 22 ) 

C  CHECK  THIS  BY- ITEM  FILE  FOR  CONSISTENCY 

REWIND  19 
CALL  CLRYET 
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DO  600  ILOOP=l , NUMITM 
READ (19, 51  XCOL1 , I 
I F (  XCOI,  1  .  N'E  .  STAR  )  GO  TO  520 

C  IF  WE  FOUND  A  STAR  THEN  THERE  ARE  TOO  FEW  ITEMS  HERE 

CALL  ERROR (13, 0,19) 

C  ESCAPE.  JUMP  TO  NEXT  FILE. 

GO  TO  610 
520  CONTINUE 

IF  ( I . GT . 0 . AND . I . LE . MAX I )  GO  TO  540 

C  INDEX  OUT  OF  RANGE.  NOTIFY  AND  GO  TO  NEXT  FILE 

CALL  ERROR ( 8  ,  1,19) 

GO  TO  oOO 

540  CONTINUE 

CALL  CHECK  1 ( I  ,19) 

600  CONTINUE 

READ  (19,5)  XCOLl.I 

C  WE  SHOULD  BE  AT  THE  END  OF  THE  FILE 
IF  (XCOL1 .EQ-RTAR)  GO  TO  610 

C  WE  WEREN'T.  NOTITY  AND  READ  ON,  ERROR  CHECKING 

CALL  ERROR (12,0, 19) 

605  CONTINUE 

IF  (I . GT . 0 . AND . I . LE . MAX I )  GO  TO  607 

C  INDEX  OUT  OF  RANGE.  NOTIFY  AND  GO  TO  NEXT  RECORD 

CALL  ERROR (8, 1, 19) 

GO  TO  608 

607  CONTINUE 

CALL  CHECK  1 (  1,19) 
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608  CONTINUE 

READ( 19,5)  XC0L1.I 

C  CHECK  IF  AT  END  OF  FILE  OR  END  OF  DATA 

IF  (XC0L1 . NE . STAR . AND . I . NE . 0 )  GO  TO  605 
C  IF  AT  END  OF  DATA  BUT  NOT  END  OF  FILE  THEN  MARKER  MISSING 

IF  (XC0L1 . NE . STAR )  CALL  ERR0R(9 ,0 , 19) 

610  CONTINUE 

C  CHECK  IF  WE  MISSED  ANY  ITEMS  ALONG  THE  WAY 

CALL  CHECK2 ( 19) 

C  GIVE  THE  NEWS 

WRITE (6, 6)  NERR 

IF  (WROTE)  WRITE (6, 8) 

IF  (.NOT. WROTE)  WRITE(6,7) 

STOP 

END 
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SUBROUTINE  ERROR (TYPE .LINE, FILE) 


C  THIS  SUBROUTINE  PRINTS  OUT  THE  ERROR  MESSAGES  AND  TALLIES 

C  THE  NUMBER  OF  ERRORS. 

COMMON  ITEM ( 150 , 2 ) ,\ERR , YET( 150) , LASTI .MAXI 
INTEGER  TYPE, LINE, FILE, MAXI , NERR 
LOGICAL  ITEM, YET 

1  FORMAT ( / 24H  '-ERROR  1*  ITEM  NUMBER  ,I3,23H  HAS  TWO  CARDS  IN  UNIT  , 
+  12} 

2  FORMAT f/3 1H  •■ERROR  2*  A  NEW  ITEM  INDEXED  , I3,9H  APPEARS  , 

+8HIN  UNIT  ,12) 

3  FORMAT  (  /  25H  -ERROR  3*  AN  SRU  (ITEM  ,I3,21H)  APPEARS  IN  THE  LRU  , 
+13HLIST  IN  UNIT  ,12) 

4  FORMAT ( / 1 7H  -ERROR  4*  ITEM  ,I3,22H  IS  MISSING  FROM  UNIT  ,12) 

5  FORMAT  ( / 1 7  H  '-ERROR  5*  ITEM  ,I3,28H  IS  OUT  OF  SEQUENCE  IN  UNIT  , 

+  12) 

6  FORMAT!  /  5 1H  '-'ERROR  6*  INVALID  SRU  INDEX  IN  LIST  FOR  LRU  ITEM  ,13, 
+9H  IN  UNIT  ,12) 

7  FORMAT (,/25H  '-'ERROR  7*  AN  LRU  (ITEM  ,I3,20H)  APPEARS  IN  THE  SRU, 
+14H  LIST  IN  UNIT  ,12) 

8  F0RMAT(/32H  '-'ERROR  8*  INVALID  ITEM  INDEX  (,I4,I0H)  APPEARS  , 

+8HIN  UNIT  ,12) 

9  FORMAT! /53H  -'ERROR  9*  END  OF  FILE  MARKER  (*)  MISSING  FROM  UNIT  , 

+  12) 

10  FORMAT  ( /  38H  '-'ERROR  10*  FILE  FORMAT  ERROR  IN  UNIT  ,I2,5H:  NRM/ 

+17X, 15HVALUE  FOR  ITEM  . I3.17H  IS  INCONSISTENT./ 

+1 7X , 39HTHE  REMAINDER  OF  THIS  FILE  IS  NOT  READ.) 

11  FORMAT! /53H  '-ERROR  11*  ITEM  DESCRIPTION  FILE  CONTAINS  MORE  THAN  / 
+1 7X, 29HTHE  ALLOWABLE  NUMBER  OF  ITEMS) 

12  FORMAT!  /  17H  '-'ERROR  12*  UNIT  ,I2,26H  CONTAINS  MORE  ITEMS  THAN  , 
+12HINITIAL  FILE) 

13  FORMAT  ( /  1 7H  '-'ERROR  13*  UNIT  ,  I2.27H  CONTAINS  FEWER  ITEMS  THAN  , 
+12HINITIAL  FILE) 

14  FORMAT! /44H  *F,RROR  14*  IRM  VALUE  OUT  OF  RANGE  FOR  ITEM  ,13/ 
+17X.8HIN  UNIT  , 12) 

15  FORMAT!/ 16H  '-'ERROR  15*  LRU  .I3.24H  CONTAINS  TOO  MANY  SRUS  , 

+8HIN  UNIT  ,12) 

16  FORMAT I/52H  '--ERROR  16*  END  OF  FILE  FOUND  BEFORE  END  OF  SRU  LIST/ 

+  17X , 8HF0R  LRU  ,13, 9H  IN  UNIT  ,12) 

IF  (TYPE .EQ. 1 )  WRITE (6 , 1 )  LINE, FILE 
IF  (TYPE . EQ . 2 )  WRITE(6,2)  LINE, FILE 
IF  (TYPE . EQ. 3)  VRITE(6,3)  LINE, FILE 
IF  (TYPE.EQ.4)  WRITE(6,4)  LINE, FILE 
IF  (TYPE.EQ.5)  WRITE(6,5)  LINE, FILE 
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IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 

IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ. 
IF  (TYPE.EQ 
IF  (TYPE.EQ. 

NERR=NERR+1 


6) 

WRITE (6 ,6) 

LINE, FILE 

7) 

WRITE (6, 7) 

LINE, FILE 

8) 

WRITE (6 , 8 ) 

LINE, FILE 

9) 

WRITE (6 ,9 ) 

FILE 

10) 

WRITE (6 ,10) 

FILE, LINE 

11) 

WRITE (6, 11) 

12) 

WRITE (6, 12) 

FILE 

13) 

WRITE (6, 13) 

FILE 

14) 

WRITE (6, 14) 

LINE, FILE 

15) 

WRITE(6, 15) 

LINE, FILE 

16) 

WRITE(6, 16) 

LINE, FILE 

1) 

WRITE (7,1) 

LINE, FILE 

2) 

WRITE (7,2) 

LINE, FILE 

3) 

WRITE (7, 3) 

LINE, FILE 

4) 

WRITE (7 ,4) 

LINE, FILE 

5) 

WRITE (7, 5) 

LINE, FILE 

6) 

WRITE (7 ,6) 

LINE, FILE 

7) 

WRITE (7, 7) 

LINE, FILE 

8) 

WRITE (7, 8) 

LINE, FILE 

9) 

WRITE (7 ,9) 

FILE 

10) 

WRITE ( 7 , 10) 

FILE, LINE 

ID 

WRITE (7, 11) 

12) 

WRITE ( 7 , 12) 

FILE 

13) 

WRITE(7, 13) 

FILE 

14) 

WRITE(7, 14) 

LINE, FILE 

15) 

WRITE (7, 15) 

LINE, FILE 

16) 

WRITE (7 , 16) 

LINE, FILE 

RETURN’ 


SUBROUTINE  CLRYET 

THIS  SUBROUTINE  'CLEARS  OUT’  YET(150)  BY  SETTING  TO  .FALSE. 
AND  RESETS  LASTI  TO  0. 

COMMON  ITEM( 150 , 2 ) ,NERR , YET( 150) , LASTI ,MAXI 
INTEGER  I ,NERR, MAXI .LASTI 
LOGICAL  YET, ITEM 

DO  10  1=1, MAXI 
YET ( I )= . FALSE . 

CONTINUE 

LAST 1=0 


RETURN 


SUBROUTINE  CHECK1 ( I , FILE) 

C  THIS  SUBROUTINE  PERFORMS  ERROR  TESTS  ON  ITEM  I  IN  FILE  'FILE' 

COMMON  ITEM ( 150 ,2) ,NERR,YET(150) ,LASTI ,MAXI 

LOGICAL  ITEM, YET 

INTEGER  I ,FILE,NERR,LASTI ,MAXI 

C  CHECK  IF  THIS  ITEM  IS  IN  SEQUENCE 

IF  (I.LT.LASTI)  CALL  ERROR (5 , I .FILE) 

LAST I = I 

C  CHECK  IF  THIS  ITEM  APPEARED  IN  THE  INITIAL  FILE 

IF  ( .NOT. ITEM(I ,1))  CALL  ERROR(2 , I .FILE) 

C  CHECK  IF  THIS  ITEM  HAS  ALREADY  APPEARED  IN  THIS  FILE 

IF  (YET(I))  CALL  ERROR( 1 , I .FILE) 

YET ( I )= . TRUE . 

RETURN 

END 
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SUBROUTINE  CHECK2 (FI LE) 

C  TIaS  SUBROUTINE  CHECK  WHICH  ITEMS  ARE  MISSING  FROM  FILE  'FILE'. 

C  NOTE  THAT  CHECK2  ONLY  TEST  FOR  "ITEMNESS"  AND  NOT  "LRUNESS",  SO 

C  THAT  FILES  INDEXED  BY  LRU  ITEM  ARE  CHECKED  IN  THE  MAIN  PROGRAM. 

COMMON  ITEM( 150,2) ,NERR,YET( 150) , LASTI , MAXI 
INTEGER  I , FI LE.NERR, LASTI .MAX I 
LOGICAL  ITEM, YET 

DO  10  1=1, MAXI 

IF  ( ITEM( 1,1). AND . . NOT . YET ( I ) )  CALL  ERR0R(4 , I .FILE) 

10  CONTINUE 

RETURN 

END 
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APPENDIX  E 

LCC  PROGRAM  FORTRAN  SOURCE  CODE 


C** 

c 

c** 


c 

c 

c 

c 


c** 

c* 

c** 

c 


.1. .1.  J. .1.  .1.  . ' -  JU . 


COMMON  /LDFPR  /  LDFPR 
COMMON  /LDSRU  /  LDSRU 
COMMON  / LDFR  /  LDFR 
COMMON  / LDUP  /  LDUP 
COMMON  /LDCOND/  LDCOND 
COMMON  /  LDN'RTS /  LDNRTS 
COMMON  /LDRTS  /  LDRTS 
COMMON  /LDRM  /  LDRM 
COMMON  /LDERV  /  LDERV 
COMMON  /EXITXX/  EXITXX 
INTEGER  EXITXX 
COMMON  / ITERXX/  ITERXX 
COMMON  /PRNTXX/  PRN'TXX 
INTEGER  PRNTXX 
COMMON  /RERDXX/  RERDXX 
INTEGER  RERDXX 
COMMON  /NERRXX/  N’ERRXX 
COMMON  /NERRYY/  NERRYY 
COMMON  /REDOXX/  REDOXX 
INTEGER  REDOXX 


.  y.  j .  »«.  J-  ju  J-  y .  »•«  yp  ~u  ju  j .  ^  ^  J-  J f  y-  *•-  •*»  ■ 


.  -x.  - 1.  .1..  _i_  -t. . 


810625  085747119 


1  FORMAT! 1H1//22H  PROGRAM  STOPS  DUE  TO  ,14, 
+  16H  ERRORS  ON  INPUT) 


INITIALIZE  SENSITIVITY  PRINT  PARAMETERS 


I  ^  •'« -U  .U.U 


CALL  SSETXX 


C 

C 

C 

C* 
C-" 


V*“V*V*V  j.  j- ^  -r- VrVf  Vf  Vr  iV  Vr  iV  Vr  iV  1V1V1V  *V  i*  r  *V  »V  Vr  *V  i V  iV  Vr  1'%  * V  "V 

EACH  PASS  THROUGH  THIS  LOOP  REPRESENTS  A  SINGLE  LCC  CALCULATION  * 


ESB£l^a-‘‘ 
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o  n  o 


r1* 


c 

DO  888  ITERXX=1 , 50 


C** 

r* 

c* 

c** 

c 


c 

c 

c 

c- 

c- 

c- 

C>' 

c 


■'*  V*  Vr  ~V  Vr  Vr*Wr  Vr  >*r  "*r~V  V*  Vr  V*  Vr  Vr  V"~V  *»V  VcVr  Vr  Vr  Vc  Vr  Vr  Vc  V*  Vf  ^WnV  »V^Wr  t*v#«V  «V  /V  «*r 

PROMPT  THE  USER  FOR  CONTROL  VARIABLES  PRN’TXX , MAXPMT , XTITLE , RERDXX ,  * 


AND  FULLXX . 


J.  j.  .1.  . j.  . '.  .i.  J.  j.  .  i. 


_t._l _ 


U.V.  .1.  .1.  .'--J-.L-'-a 


EXITXX=0 
CALL  PRMPT1 


■***■ 


IF  THIS  IS  THE  FIRST  ITERATION  OR  IF  THE  USER  REQUESTED  TO 
REREAD  THE  FILES,  INITIALIZE  VARIABLES  AND  READ  THE  INPUT  FILES 


I F (PRNTXX . NE . 0 )  CALL  TITLE 

IF(ITF,RXX.NE.  1. AND. RERDXX. NE.l)  GOTO  2 

CALL  IN’ITAL 

NERRXX=0 

REWIND  11 

REWIND  12 

REWIND  13 

REWIND  14 

REWIND  15 

REWIND  16 

REWIND  17 

REWIND  18 

REWIND  19 

REWIND  20 

REWIND  21 

REWIND  22 

CALL  READ1 

CALL  READ2 

CALL  READ 3 

CALL  READ4 

CALL  READ5 

CALL  READ6 

CALL  READ7 

CALL  READ8 

CALL  READ9A 

CALL  READ9B 

CALL  READ  10 


ggg|g 
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o  o 


c 

c 

c 

c*- 

c* 

c* 

c* 

C*' 

c 


c 


CALL  READ11 
NERRYY=SERRXX 
2  CONTINUE 


READ  NAMELISTS  /GOl/,  /G02/  AND  /SENS/  TO  OVERRIDE 
VARIABLE  VALUES  WITH  INTERACTIVE  INPUTS  AND  TO  SET  SENSITIVITY 
OUTPUT  FLAGS. 


‘  <V  V*  Vr  «'r  *V  m  *  *  V*  V;  *  *  V?  *  Vc  *  *  * 


********* 


***** 


CALL  PRMPT2 

IF ( EXITXX . EQ . 1 )  GO  TO  6 
CALL  PRMPT3 

IF ( EXITXX . EQ . 1)  GO  TO  6 


C* 

c* 

c* 

c 

c 

c 


c 


c 


PERFORM  ANY  ERROR  CHECKS  OR  CALCULATIONS  WHICH  SHOULD  * 

BE  PERFORMED  BEFORE  THE  INPUT  TABLES  ARE  PRINTED.  * 

*******  •<Wr**  ******  ***********************************  ***************  ■/?** 


CALL  IN1TAX 


PRINT  THE  INPUT  DATA  VALUES.  * 


CALL  I.KRCK1 
CALL  RLCOMP 
CALL  OTA B ST 
CALI.  ITAB1A 
CALL  ITAB1B 
CALL  ITAB1C 
CALL  ITAB2 
CALL  ITAB3 
CALL  ITAB4 
CALL  ITAB5 
CALL  ITAB6 
CALL  ITAB7 
CALL  ITAB8 
CALL  ITAB9A 
CALL  ITAB9B 
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nnnooo  ooonnoo 


CALL  ITB10A 
CALL  ITB10B 
CALL  ITB10C 
CALL  ITB10D 
CALL  ITAB11 


*  STOP  IF  ANY  ERRORS  WERE  FOUND  ON  INPUT. 

j. j. «*. «.*. ju .f-. ju *y -•» .y »v y- ^ y- .•« .u^u  j- Vr*V Vr *V Vf  VrV»  <V V?  ■& Vr V? Vr ”V V? “'c*V Vr “V V.  "V V? “V*'r t1,* "h Vr 


NERRXX=NERRYY 
IF(NERRXX.EQ.O)  GO  TO  4 
WRITE (6,1)  N'ERRXX 
I F ( PRNTXX . NE . 0 )  WRITE (7,1)  NERRXX 
STOP 

4  CONTINUE 


sV*V 


Vr****VfVrVf*V? 


j.  j.  j-.i. 


*  LCC  CALCULATIONS 


CALL 

ZFAII, 

CALL 

ZNFB 

CALL 

ZERHB 

CALL 

ZERHSE 

CALL 

ZISET 

CALL 

ZUSE 

CALL 

ZTYPE 

CALL 

ZTFR 

CALL 

ZSECI 

CALL 

ZPMEQ 

CALL 

ztisq 

CALL 

ZYRSQ 

CALL 

ZTOTPQ 

CALL 

ZLC 

CALL 

COST1 

CALL 

COST2 

CALL 

COST3 

CALL 

C0ST4 

CALL 

COSTS 

CALL 

COST6 

CALL 

COST  7 

CALL 

COSTS 

4 
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o  o 


c 

c 

c 

c-‘ 


CALI,  C0ST9 
CALL  C0ST10 
CALL  COST  1 1 


■  >L  J.  J.  X  X  X  XX  XJ.  X , 


SENSITIVITY  CALCULATIONS 


XXXXX  X  XX  X  X  .1.  X  X.  X  XX  X  X  xxxxx. 


C 

c 

c 

O' 

o 

c 


CALL  DPI  UP 
CALL  DDMF 
CALL  DRM 
CALL  DXRM 
CALL  DXl'C 

IF  ( LDUP  .NE.O.OR. ( PRNTXX . NE . 0 . AND . LDERV  .NE.O))  CALL  DUP 

CALL  DPR 

CALL  I)XFR 

CALL  DFPR 

CALL  DXFPR 

IF  ( LDRTS  .NE.O.OR. (PRNTXX. NE.O. AND. LDERV  .NE.O))  CALL  DRTS 
IF  (LDNRTS. NE.O. OR. (PRNTXX. NE.O. AND. LDERV  .NE.O))  CALL  DNRTS 
IF  (LDCOND. NE.O. OR. (PRNTXX. NE.O. AND. LDERV  .NE.O))  CALL  DCOND 
IF  (LDSRU  .NE.O.OR. (PRNTXX. NE.O. AND. LDERV  .NE.O))  CALL  DSRU 
CALL  DXMIL 


TELL  THE  USER  TO  ADJUST  TERMINAL  TO  A  NEW  PAGE 


CALL  PRMPT4 

I F; EXITXX.EQ. 1 )  GO  TO  b 


PRINT  OUTPUT  TABLES  AT  TERMINAL  AND/OR  OFFLINE  PRINTER 


CALL  OTAB1 
CALL  OTAB2 
CALL  OTAB3A 
CALL  OTAB3B 
CALL  OTAB3C 
CALL  OTAB4A 


i 
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noon 


CALL  0TAB4B 
CALL  0TAB4C 
CALL  0TAB5 
CALL  0TAB6 
CALL  OTAB7 
CALL  RLAPRT 
CALL  PRMPT5 

IFCEXITXX.EQ. 1)  GO  TO  6 
C 
C 
C 

C*  PRINT  SENSITIVITY  TABLE  AT  TERMINAL  AND/OR  OFFLINE  PRINTER 


CALL  OSF.NS 


C 

C 

C 


ASK  THE  USER  WHETHER  ANOTHER  RUN  IS  DESIRED. 


<-  -t-  .U  -J-  .1.  . 


« _ -I _ I _ w. 


6  CALL  PRMPT6 

IF(REDOXX.EQ.O)  GO  TO  999 
888  CONTINUE 
C 

999  STOP 
C 

END 
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SUBROUTINE  READ  1 


810625  08455222 

ATI'  MOI)  LCR 

READS  THE  MISCKLLASEOIS  SCALAR  DATA 
FILE  FROM  CHANNEL  11 


COMMON  /ACPP/  ACPP 
COMMON  , BAA/  BAA 
COMMON  ' BDATA/  BDATA 
INTEGER  BDATA 
COMMON  BE,'  BF 
COMMON  /BIRD  BIRD 
COMMON  BLR.'  BLR 
COMMON  / BMF/  BMF 
COMMON  ,/BRCT/  BRCT 
COMMON  /CFG/  CFG ( 3 ) 
COMMON  . CPDl /  CPD1 
COMMON  j CPI) 2 /  CPD2 
COMMON  /CPPC/  CPPC 
COMMON  CPPI)/  CPPD  (  3  ) 
COMMON  CRCT/  C.RCT 
COMMON  DAA >  DAA 
COMMON  /DAD-  DAD 
COMMON  DDATA ,  I)  DAT  A 
INTEGER  DDATA 
COMMON  /HER:  DLR 
COMMON  / DMF  '  DMF 
COMMON  DKCT  I)RCT(3) 
COMMON  ,,  FSEDC  FSEDC 
COMMON  , HPD1,  HPD 1 
INTEGER  HPD! 

COMMON  .  HPD2,'  1IPD2 
INTEGER  HPD 2 
COMMON  / I MC /  IMC 
REAL  IMC 

COMMON  ,'KKAC  /  REACH  4) 
REAL  KEAC 

COMMON  / M I LR /  MILR(3) 
REAL  M I LR 
COMMON  /MRF /  MRF 
REAL  MRF 

COMMON  /MRO/  MR 0 
REAL  MRO 

COMMON  ,'Ml'SE/  MUSE 
REAL  MUSE 
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COMMON  ,/NRl'C/  NRl'C 
REAL  NKL'C 

COMMON  /OST/  OSTI3) 

COMMON  / OSTC /  OSTC 
COMMON  /PALI/  PALI 
COMMON  /PAL2B /  PAL2B 
COMMON  /PAL2I)/  PAL2D 
COMMON  /PI UP/  PIUP 
COMMON  / PMLR/  PMLR 
COMMON  /QTYP1 /  QTYP1 
INTEGER  QTYP1 
COMMON  /QTYP2B /  QTYP2B 
INTEGER  QTYP2B 
COMMON  /QTYP2D/  QTYP2D 
INTEGER  QTYP2D 
COMMON  / R /  R 
INTEGER  R 

COMMON  /RCPP/  RCPP 
COMMON  / RMC /  RMC 
COMMON  /SA/  SA 
COMMON  / S  PC  1 /  SPC1 
INTEGER  SPC1 
COMMON  /SPC2  SPC2 
INTEGER  SPC2 
COMMON  ./SR/  SR 
COMMON  /TEEM  TEEM 
COMMON  TNLR  TNLR 
COMMON  'TORB/  TORB 
COMMON  /TORO,  TORO 
COMMON  /TR  TR 
COMMON  .TRAYB /  TRAVB 
COMMON  TRAY  1 1) '  TRAY II) 

COMMON  /TYP2TE/  TYP2TF 
COMMON  .'UCPP  UCPP 
COMMON  ,/XEPR  XFPR 
COMMON  /XFR  XFR 
COMMON  ,'XMIL  XMII, 

COMMON  /XIC/  XCC 

NAMELIST  /MISC  BF , BAA , BLR , BMF , BRCT ,CFG ,CPPC ,CPPD , CRCT , DAA , DAD , DLR 
+ , DMF , DRCT , I MC , EFAC , M I LR , MUSE , NRUC , OST .OSTC , PI  UP , PMLR , RMC , SA , TNLR , X 
+FPR , XFR , XM I L , XUC , HPD2 .TORB , TORD . MRO , MRF , SR ,TR . PALI , PAL2B , PAL2D , TRA 
+V 1 D , TRAYB , ACPP . CPD2 , RCPP , UCPP , B I RD ,QTYP I , QTYP2B , QTYP2D , SPC2 . TYP2TF 
+  ,  BOAT  A  ,  CPI)  I  ,  DDATA  ,  FSEDC  ,HPD  1  .R.SPC1  ,TEFM 


READ (  11  .MISC) 


RETURN 

END 


i 

I 


SUBROUTINE  READ 


C 

C- 

C- 

C- 

c- 

c- 

c 


ATU  MOD  LCR 

READS  THE  BASE  CONFIGURATION  FILE 
FROM  CHANNEL  12 


-I.  -I- .  I _ 


810625  084600582 


J.  -i — u.  j. 


COMMON  /BNOUN/  BN0UN(10,16) 

COMMON  /BPLAT/  BFLAT(IO) 

INTEGER  BPLAT 
COMMON  /BSP./  BSP ( 10 j 
INTEGER  BSP 

COMMON  ,/BTYPE/  BTYPE(IO) 

INTEGER  BTYPE 
COMMON  ,/LO/  LOU 01 
COMMON  /MXNS/  MXNS 
COMMON  /NBC/  NBC (10) 

REAL  NBC 

COMMON  /NHB/  NHB(IO) 

COMMON  /NS/  NS 
COMMON  /TNB/  TNB(IO) 

COMMON  ,/NERRXX/  NERRXX 
COMMON  /PRN'TXX/  PRNTXX 
INTEGER  PRNTXX 
DATA  XXSTAR/1H*/ 

1  FORMAT( A 1 , 1 2 , 1 6A 1 , F3 . 0 , 312 , F3 . 0 , 212 ) 

2  FORMAT! A 1 ) 

3  FORMAT (/49H  UNIT  12  ERROR :  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 
+1 7X , 37HMAXIMUM  NUMBER  OF  CARDS  WERE  READ  IN.) 

C 

C 


MXNS=0 

DO  210  NS=1 ,10 

READ ( 12 ,  1)  XXC0L1 ,NS1 , (BNOUN(NS, II), 11=1,16) ,TNB (NS) ,LO(NS) , 
+  BTYPE(NS) ,NHB(NS) ,NBC(NS) ,BPLAT(NS) ,BSP(NS) 

IF (XXC0L1 . EQ . XXSTAR )  RETURN 
MXNS=NS 
210  CONTINUE 
C 

READ (12,  2)  XXC0L1 
IF (XXC0L1 .EQ. XXSTAR)  RETURN 
NERRXX=NERRXX+ 1 
WRITE (6,  3) 

IF! PRNTXX. NE.O)  WRITE! 7,  3) 

C 

RETURN 

END 


32 


i 

j 


o  o 


c 

c** 

c* 

c* 

c** 

c 


SUBROUTINE  READ3 

810625  084601 349 

READS  THE  PLATFORM  OPERATIONAL  DATA  FILE  * 

FROM  CHANNEL  13  * 


COMMON  /AMPM/  AMPM(5,3) 

COMMON  /APFH /  APFH(5,3) 

COMMON  /FGH/  FGH(5 ) 

COMMON  /LE/  LE ( 5 ) 

COMMON  /M/  M 

COMMON  /MMPD/  MMPD(5,3) 

REAL  MMPD 

COMMON  /MM PM/  MMPM(5) 

REAL  MM CM 

COMMON  /MXNP/  MXNP 

COMMON  /NP/  NP 

COMMON  /PNOUN/  PNOL'N(5,12) 

COMMON  /TFAC/  TFAC(5) 

COMMON  /THRS/  THRS(5) 

COMMON  /NERRXX/  NERRXX 
COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
DATA  XXSTAR/1H*/ 

1  FORMAT ( A 1 , 1 3 , 1 2A 1 ,  12 , 3F4 . 0  ,  F3 . 2 , 4X  ,F3 . 1 , 3F4 . 1 , 3F5 . 1  ,F7 . 0  ,F5 . 0) 

2  FORMAT! Al) 

3  FORMAT (/49H  UNIT  13  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 

+ 1  7  X , 3  7  HM AX I MUM  NUMBER  OF  CARDS  WERE  READ  IN.) 


MXNP=0 

DO  210  NP=1 ,5 

READ! 13,  1)  XXCOL1 ,NP1 , (PNOUN(NP.Kl) ,K1=1 , 12) ,LE(NP) , (APFH(NP, 
+  M) ,M=1 ,3) , TFAC(NP) ,MMPM(NP) , (AMPM(NP.M) ,M=1,3) , !MMPD(NP,M) , 

+  M=1 , 3) , THRS (NP) , FGH(NP) 

I F ( XXCOL 1 . EQ . XXSTAR )  RETURN 
MXNP=NP 
210  CONTINUE 
C 

READ! 13,  2)  XXCOL 1 

I F ! XXCOL 1 .EQ. XXSTAR)  RETURN 

NERRXX=NERRXX+1 

WRITE (6 ,  3) 

IF! PRNTXX . NE . 0 )  WRITE(7,  3) 

C 

RETURN 

END 
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o  n 


SUBROUTINE  RF.AD4 


C  810625  084602489 

C*  ATU  MOD  LCR  * 
C*  READS  THE  PLATFORM  TERMINAL  COST  6  NONRECURRING  MOD/ I  * 
C*  DATA  FILE  FROM  CHANNEL  14  * 


COMMON  /DRAG/  DRAG ( 5 ) 

COMMON  /FR/  FR ( 3 , 5 ) 

COMMON  / INTNR/  INTNR ( 5 ) 

REAL  INTNR 

COMMON  /  I  N'TR /  I NTR  ( 5  ) 

REAL  I NTR 
COMMON  /K/  K ( 5  ) 

REAL  K 

COMMON  /M/  M 
COMMON  /MXNP/  MXNP 
COMMON  /NAE/  NAE(5) 

REAL  NAE 
COMMON  /NP/  NT 
COMMON  /NRMI  /  NRMI 15) 

REAL  NRMI 

COMMON  /N’TRMP/  NTRMP(  5  ) 

REAL  N’TRMP 

COMMON  /PDIV/  PDIV( 5 ) 

COMMON  /NERRXX/  NERRXX 
COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
DATA  XXSTAR/ 1H*/ 

1  FORMAT! A 1 , 1  3 , F4 . 2 , F9 . 0 , F8 . 0 , F9 . 0 , F4 . 2 , 3F3 . 2 , F3 . 0 , 2F4 . 2 ) 

2  FORMAT! A  1 ) 

3  FORMAT (/49H  UNIT  14  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 

+1 7X, 37HMAXIMUM  NUMBER  OF  CARDS  WERE  READ  IN.) 

C 

C 

MXNP=0 

DO  210  NP=1 ,5 

READ ( 14 ,  1 )  XXCOL1 ,NP1 ,NTRMP(NP) , INTNR(NP) , INTR(NP) ,NRMI (NP) , 
+  PDIV(NP) , (FR(M,NP),M=1,3),DRAG(NP) ,K(NP) , NAE (NP) 

I F  f XXCOL1 . KQ . XXSTAR )  RETURN 
MXNP=NP 
210  CONTINUE 
C 

READ  114,  2)  XXCOL1 
I  F  (  XXCOI.l  ,EQ.  XXSTAR)  RETURN 
NERRXX=NERRXX+ 1 
WRITE (6,  3) 
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IF(PRNTXX.NE.O)  WRITE(7,  3) 


RETURN 

END 


! 


o  o 


SUBROUTINE  READ5 


C 

C** 

C* 

C* 

c* 

c** 

c 


ATU  MOD  LCR 

READS  THE  PLATFORM  RECURRING  MOD/ INSTALLATION 
DATA  FILE  FROM  CHANNEL  15 


810625  084605670 

i  J. J  J-  -J-  -J- 


COMMON  /AKIT/  AKIT(4,5) 

COMMON  / I A/  I A 
COMMON  /M/  M 

COMMON  /MIF1X/  MIFIX(3,5) 

REAL  MIFIX 

COMMON  /M1MH/  MIMH(4,3,5) 

REAL  MIMH 

COMMON  /MXNP/  MXNP 
COMMON  /NP/  NP 
COMMON  /NERRXX/  NERRXX 
COMMON  /PRNTXX/  PR.NTXX 
INTEGER  PRNTXX 
DATA  XX STAR/ 2  H*/ 

1  FORMAT! A  1,13, 7F5 . 0 , 12F3 . 0) 

2  FORMAT ( A 1 ) 

3  FORMAT! / 49H  UNIT  1 5  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 
+ 1 7X , 3 7 UMAX  I  MUM  NUMBER  OF  CARDS  WERE  READ  IN.) 


MXNP=0 

DO  210  NP=1 ,5 

READ! 15 ,  1 )  XXCOL1 ,NP1 , (MIFIX(M.NP) ,M=1 , 3) , (AKIT(IA.NP) , IA=3 ,4) , 
+  ( (MIMH( 1 A ,M ,NP ) , I A=1 ,4) ,M=1 , 3) 

IF f XX00L1 . EQ.XXSTAR)  RETURN 
MXNP=NP 
210  CONTINUE 
C 

READ! 15,  2)  XXCOL1 
I F  (  XXCOL 1  .  F.Q .  XXSTAR )  RETURN 
NF.RRXX=NERRXX+1 
WRITER,  3) 

I F  ( PRNTXX  .  NT. .  0  )  WRITE(7,  3) 

C 

RETURN 

END 
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oo  n  o  n  n  o  n 


SUBROUTINE  READ6 


810625  084607869 


READS  THE  PLATFORM  DEPLOYMENT  AT  BASES 
*  DATA  FILE  FROM  CHANNEL  10 


J.  j-  *'- *  V  -1  -  - 


COMMON  /MXNP/  MXNP 

COMMON  /NP/  NP 

COMMON  /NPLT/  NPLT(5,10) 

REAL  NPLT 
COMMON  /NS/  NS 
COMMON  /NERRXX/  NERRXX 
COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
DATA  XXSTAR/1H*/ 

1  F0RMAT(A1 , 13 , 16F4 .2) 

2  FORMAT(Al) 

3  FORMAT (/49H  UNIT  16  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 
+ 1 7 X , 3 7 HMAX I MUM  NUMBER  OF  CARDS  WERE  READ  IN.) 


SUBROUTINE  READ7 


C 

C 

C* 

C 

C 


.1 — 


ATU  MOD  LCR 

READS  THE  SUPPORT  EQUIPMENT  DATA 
FILE  FROM  CHANNEL  17 


810625  084610000 


.A.  J.  -U  -j-  J-  .'.J. 


COMMON  /CSF./  CSEI120) 

COMMON  / DAT AS/  DATASI 120) 

INTEGER  DATAS 
COMMON  / L/  L 
COMMON  /MSE/  MSE (120) 

REAL  MSE 

COMMON  /MXL/  MX L 
COMMON  /SEDEV/  SEDEVI 120) 

COMMON  /SEINO/  SF.IN0(120) 

INTEGER  SEINO 

COMMON  /SENOUN/  SENOUN( 120 , 20) 

COMMON  /SENUM/  SENUM( 120 , 12) 

COMMON  /SETYPE/  SETYPE(120) 

INTEGER  SETYPE 
COMMON  /NERRXX/  NERRXX 
COMMON  / PRNTXX /  PRNTXX 
INTEGER  PRNTXX 
DATA  XXSTAR / 1 H* / 

1  FORMAT ( A 1 , 1 3 , 20A1 , 12A l , F7 . 0 , F4 . 3 , 12 , 1 3 , F8 . 0) 

2  FORMAT (All 

3  F0RMAT(,/49H  UNIT  17  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 
+1 7X , 37HMAXIMUM  NUMBER  OF  CARDS  WERE  READ  IN.) 


C 

c 


MXL=0 


DO  210  I XXX 1~1, 120 

READ! 1 7 ,  1 )  XXCOL1 , L, ( SENOUN ( L, 1 1 ), 11  =  1 ,20) , (SENUM(L, 12) , 12=1 , 
+  12 ) , CSE ( L ) , MSE CL), SETYPE ( L) , DATAS (L) , SEDEV(L) 

IFIXXCOLl .EQ. XXSTAR)  RETURN 
MXL=IXXX1 


SEINOf I XXXI  )=L 


210  CONTINUE 


READ (17,  2 l  XXCOL1 
1 F (XXCOL1 . EQ . XXSTAR  )  RETURN 
NERRXX=NEKRXX+ 1 


WRITE! 6,  3) 

I  F  (  PRNTXX  .  NF. .  0  )  WKITE(7,  3) 


RETURN 

END 


SUB ROUT INK  READ8 


C 

C* 

c* 

c* 

c* 

c* 

c 


c 


c 


810625  08U611828 

■  o.  .* .  .1. j.  .1.  j.  .i.  j.  .y  j.  j.  j.  j,  .i,  .y  -i-  ,y .y  .y  -y.  .y  .y  .y  -y.  j.  j-  j. 


ATU  MOD  LCR 

READS  THE  ITEM  EQUIPMENT  DATA  FILE 
FROM  CHANNEL  18 


COMMON  /GFE/  UFEdSO) 

INTEGER  GFE 

COMMON  /I/  I 

COMMON  /iNO/  1 NO( 150) 

COMMON  /I  NOUN/  I  NOUN (150, 24; 

REAL  I  NOUN 

COMMON  / INTEG/  i  NTEO  (150) 

REAL  INTEG 

COMMON  / LFAC /  LFAC 1150) 

REAL  LFAC 

COMMON  /LRU  LRU ( 150) 

COMMON  /MX  I  MX  I 
COMMON  /NHL  NHLI50) 

COMMON  /PA/  PA (150) 

COMMON  '  PTNUM  /  PTNUM ( 1 50 , 12  ) 

COMMON  /RM/  RM i 150) 

COMMON  UP  UP! 150) 

COMMON  /WT  l»T; 150) 

COMMON  / NEKKXX/  NKRRXX 
COMMON  PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
DATA  XXSTAR.  Hi*  •' 

1  FORMAT!  A1  ,  i  5 , 2-*  A  1  ,  1  HA  I  ,  Fii .  2 , 1  2  ,  I  3 , 2  1 2  ,  F6 . 0  ,  F4 . 3  ,  F5 . 2  ,  F4 . 2) 

2  I ORMAT l A 1  ) 

3  FORMAT!  -* 0 H  UNIT  18  ERROR-  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 
+I 7X.37HNAX1NUM  NUMBER  OF  CARDS  WERE  READ  IN.) 


MX  1=0 

DO  2  10  I XXX 1  =  1.1 50 

READ  I  IK,  1  i  XXCOL1 , !  , ! I  NOUN ( I ,K1  )  ,K1  =  1 .24 ) , ( PTNUM ( I ,K2) ,K2=1 , 

+  12  i  , LFAC i  1  ;  , LRU (  1  t ,NIU  l I  > ,GFE( 1  )  , INTEG ( I ) ,UP( I ) ,RM( I ) ,WT(I ) , 

+  PA  (  I  ) 

IFf  XXCfT.i  .  F.Q  .  XXSTAR  )  RETURN 
MX  I  =  1 XXX ! 

INOi  I XXXI  ,  =  ! 

210  CONTINUE 


C 


READ! 18 ,  2 i  XXCOL1 
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I F ( XXCOL 1 . EQ . XXSTAR )  RETURN 
NERRXX=NERRXX+ 1 
WRITE! 6 ,  3) 

IF (PRNTXX . NE . 0 )  VRITE(7,  3) 

RETURN- 

END 


SUBROUTINE.  KEAD9A 

c 

C*  RKAI'S  THE  ITEM  MA  i  NT!  NANCE  UATA  TILE 
C*  FROM  CHANNEL  19 

C 


COMMON 

BCMH  BCMIi '  15(0 

COMMON 

/BMH  BMI0I5C)l 

COMMON 

COND  O'  >\D  ■  15(0 

COMMON 

TMH  DM:!'  I'-) 

COMMON 

'  FPK  FPK :  !'•!•! 

COMMON 

'  f  •  ! 

COMMON 

!No  in  i:5'tt 

COMMON 

!P"P;'.  5..m 

REAL  IP 

COMMON 

/  Mi  MTB.M  I  .  1  5 

REAL  MT 

BM  1 

COMMON 

/MX!  “  \ 

COMMON 

NKTS  NK  1  S  1  r>  )  ) 

REAL  NKTS 

COMMON 

•KIP  R! Pi I50l 

COMMON 

•  Hit  K!.(  1  >0  1 

I  NTEGI'.K 

RL 

COMMON 

KMH  KMH,  I 'DO 

COMMON  RTS  RTS i 150' 

COMMON  WEAR  WEAK  I  5(1) 

COMMON  NF.RRXX  NEKRXX 
COMMON  ■  I’RNTXX  '  PRNTXX 
I  NTF.GEK  PRNTXX 
DATA  XXSTAK  111*' 

1  FORMAT!  A 1  ,  i  0.4FS  ^  ,  f  4  .  3 ,  F3 . 2  ,  F5 . 2 , 3F4 . 3.4F4.2,  I  1  ) 

2  FORMAT! All 

3  FORMAT!  /•♦‘Mi  !MT  19  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 

-1  ■X.T7HMAXIMFM  NUMBER  OF  CARDS  WERE  READ  IN.) 

■4  FORMAT i  IX,  3 .'K  INPUT  ERROR:  INPUT  FILE  READ  IN  FROM/ 

+  ‘>  1 HOHANNKL  1 9  CcNTAINS  FEWER  ITEMS  THAN  ITITIAL  FILE) 

*  FORMAT.  IX.A'L'IINPIT  ERROR:  INDEXING  IN  INPUT  FILE  READ  IN  FROM/ 
+4r>HCHANNE L  .•••  ;•>  IS  INCONSISTENT  WITH  INITIAL  FILE) 

C 

<; 

D"  2L  iXXMi-I  .MX  I 

READ!  19.  ;  .  XX!M  i.I  .  I  .  (MTBMU  I  ,K1)  ,K1  =  1  ,4)  ,FPR(1)  .RIP ( I  )  ,  IPCF(I)  , 
+  RTS  (  I  .  ,  NKTS  i  i  !  .CONDI  I  )  ,  KMH (. I  )  , BCMH  ( I  )  ,  BMH  ( 1 )  , DMH  ( I  )  ,RL(.I  ) 
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WRITE (6 ,  4) 

IF(PRNTXX.SE.O)  WRITE(7,  4) 
RETURN 

00  CONTINUE 

I F  ( I  .  EQ  .  I  NO  (  I XXXI )  )G0  TO 

NERRXX=NERRXX+ 1 
WRITE  to,  5) 

IF ( PRNTXX . NE . 0)  WRITE!/ .  5) 

10  CONTINUE 

READ (19,  2)  XXCOL1 
I F(XXC0L1 . EQ . XXSTAR )  RETURN 
NXRRXX=NERRXX+ 1 
WRITE! b,  3) 

IF (PRNTXX. NE.O)  WRITE(7,  3) 


810625  084621195 


Sl'HK't"  7  NX  Hr  A!'!) k 


AT1  A  i' 

READS  THE  "i” 
i'K  M  CFANNE' 


MAINTENANCE  DATA  FILE  PART  2 


COMMON  ' . A  :  Ah  HA  I'ABi  '  50  ) 

:  ntf.urk  datah 

COMM!  \  '  DATAIi.  1  5v  ! 

INTEGER  X.YXA!) 

( '  |  j 

COMMON  '  Y  IN  "  1  5 ) 
common  mx: 

common  ! me  i  ■  14:'' ) 

INTEGER  T i ME  1 

COMMON  UCTDKV.-  '/CT’TIV ;  1  50  ) 

COMMON  N 1 1 K  K  >:  X  NEKNXX 
COMMON  X'RNTXX  PRN'TXX 
INTEGER  I’KNTXX 
DATA  XXSTAR  111* 

1  FORM.-#  A  :  J  - 

2  FORMAT- A 1  i 

Fi  'KMAT  -OX;  FMT  2.  ERROR ;  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 

+  .*i:‘-A>::MiM  vtm  r  ff  cards  were  read  in.  > 

4  FORMAT  X  .  -  "i- :  AT  •;  ERROR:  I  NIT  T  FILE  READ  IN  FROM/ 

-IlHOHANXEL  r.-  ..  NTAINS  FEWER  ITEMS  THAN  ITITIAL  FILE) 

5  Foi-O'A’T  :  ,  -‘fi: :  NR:  T  ERROR:  indexing  in  input  file  read  in  from/ 

*•*('!<•  OR  ‘.NX-  '  :  ME  NS  I  STENT  WITH  INITIAL  FILE) 


I).  •  1 :  ,  XXX  :  :  ■  .MX! 

REAL-  ....  .  ■.  XX  '  ,  i  ,  0ATA1)  (  I  i  .DATABt  I  )  .TIME  1  ( I  )  ,UCTDF.V(I ) 

IFiXXF' .  N:  .  XXSX  AK  Co  TO  200 

n:.rrvx  nexr'-  x  - 

WK  I  IT  :  r.  , 

I  !  : '  R  N  N  ■  vi  .1.1  .  .+  i 

KF.T1  KN 

00  (YNTIXIE 

l F(  I  :  .  ' Ni  i  i XXX 1  )  1  GO  TO  210 

Ni.KKXX  NERRXX*  I 
WR  ;  IT  -.  r.  .  X 

I  i  i  RNVXX  NE  . 1  i  WRITE!/,  5i 
i  o  cunt  i  v  f. 


READ  ( . 
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IFfXXCOLl .EQ.XXSTAR)  RETURN 

NERRXX=NERRXX+l 

WRITE (6,  3) 

IF  (  PRN'TXX  .  NE  .  0 )  WRITE(7,  3) 

RETURN 

END 
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Sl'HIW  i  NE  READH- 


ATI  MOD  LCK 

READS  THE  ITEM •  SlTFOKT  EQUIPMENT 
CROSS-REFERENCE  DATA  Fll.E  FRO'!  CHANNEL  20 


810625  08^*63 1 A02 


COMMON  'A.'  A-.  ’,50, A. 3) 

INTEGER  A 

COMMON  : .  i 

COMMON  ■  i  N'f  i  N1'  :  ;  '><' ) 

COMMON  I  KM  IN'  !  KM  ■  N  !  1  50  ,  •'* ) 

COMMON  MX!  MX! 

COMMON  N.!A  N.EA 
COMMON  /NRM-  NKM' 150) 

COMMON  QSA  QSA I  150,4,3 ) 

COMMON  '  SF.RRXX  NEKRXX 
COMMON  ,  i’KNTXX-  PkNTXX 
INTEGER  FRNTXX 
DATA  XXSTAR  III*/ 

1  FORMAT  i  A 1  ,  l  3 . 2  1  2  3  (  1  -*  ,F 3 . 0  ) ) 

3  CORMAT:.  ' v'>H  '.NIT  -  ERRFR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 

+  i~X  3“ UMAX’ MUM  NVMBEK  OF  CARDS  WERE  READ  IN.) 
fmRMaV’v  >Vh  INPUT  F.KXOR  •  INPUT  FILE  READ  IN  FROM/ 

+51  hchann" i  contains  fewer  items  than  ititial  file/ 

, ni»K  VlllSI-r  m*,*:  INWBtUW  IS  IKUT  FILE  READ  IN  FROM/ 
+A6HCHANNEL  «  20  IS  INCONSISTENT  WITH  INITIAL  FILE) 


1)0  '* ’ * 0  1  XXX  !rl  , MX \ 

READ (20  ,  1 1  XXCOl.l . I ,NRM( I ) , 1RM1N1 1 , 1 ) ,NJA( 1 , 1) , ( A( I , 1 ,K2 ) , 

+  QSA! I  ,  1 ,K2 ) ,K2=1 ,3 ) 

IFfXXCOM  .  NK  .  XXSTAR  )  GO  TO  200 
N  E  HR XX= S E RR XX+ 1 
WR  I TK  (  6  .  V 

1 F  I  PRNTXX . NT.  •  0  i  WRITE i/,  A) 

RETURN 

200  CONTINUE 

.F.Q.1N0  l  1 XXX I  )  1  GO  TO  20d 
NERRXX=XF.RRXX+ 1 
WRITE! ft,  5 1 

I F(  PRNTXX.  NF!  •  0  )  WRITE!  5) 

. I  VfS.lA  l  l  ,  K  I  TEMP  /  •  GT  .  0  ) '' 

1TER=(  N-lAf  1,1)-')  '0  ; 


C .  DO  205  X2TEMP=1 ,  ITER 

C .  K3=MINO(K2+9 , 30) ; 

C .  K4=K2+1; 

C .  READ (20, 6) (A(I , 1 ,K2) ,QSA(I , 1 ,K2) ,K2=K4,K3) 

C .  6  FORMAT ( 1 IX , 9 ( 14 ,F3 . 0 )  ) 


205  CONTINUE 

I F  (  .  NOT .  ( N'RM  ( I )  .  GT .  1 ) )  GO  TO  210 
INRM=NRM(I) 

C 

DO  215  K1TEMP=2 , INRM 

READ (20, 7)1 RM IN (I ,K1TEMP) ,NJA(I .K1TEMP) , 
+(A( I , K1TEMP , K2 ) ,QSA(I ,K1TEMP,K2) ,K2=1 ,3) 

7  FORMAT (6X,I2,I3,3(I4,F3.0)) 


C .  IF  (  .  NOT .  (NJA ( I , K 1  TEMP ) .  GT .  9 )  )  GO  TO  214 

C .  ITER=(NJA(I ,KlTEMP)-l)/9 

C .  DO  212  K2TEMP=1 ,  ITER 

C .  K3=MIN0 (K2+9 , 30 ) 

C .  K4=K2+1 

C .  READ(20 , 8 )  (A(I ,K1TEMP,K2) , 

C .  +  QSA ( I , K 1TEMP , K2 ) , K2=K4 , K3 ) 

C .  8  FORMAT ( 1 IX , 9 ( 14 ,F3 . 0) ) 

C . 212  CONTINUE 

C . 214  CONTINUE 


215  CONTINUE 
210  CONTINUE 
220  CONTINUE 

READ (20 ,  2)  XXC0L1 
IF(XXC0L1 .EQ.XXSTAR)  RETURN 
NERRXX=NERRXX+ 1 
WRITE (6 ,  3) 

IF (PRNTXX . NE . 0)  WRITE(7,  3) 

RETURN 

END 
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SUBROUTINE  READ  1 1 


BASELINE  CHANGE 

v  READS  THE  ITEM  CONFIGURATION  DATA 
’•  FILE  FROM  CHANNEL  21 


810625  084645796 

x  <Ir*V*'r%V^r'«VVryr  VrVrVr  fr’V  Vr*V  ~i rVrVf  *'*  *V‘.Wr 


* 


i i — i. .' — »-.i — i — (.  j <.  u.  jl — t.«i.  - 


COMMON  /I/  I 
COMMON  'ISO/  I  NO (150) 

COMMON  '  MX  I /  MX  I 

COMMON  /NITEM/  N ITEM (150,5) 

REAL  NITEM 
COMMON  /NT/  NP 
COMMON  /NERRXX/  N ERR XX 
COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
DATA  XXSTAR/ 1H*/ 

1  FORMAT ( A 1 , 1 3 , 1 0F4 . 2 ) 

2  FORMATf A 1 ) 

3  FORMAT ( /49H  UNIT  21  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 

+  17X , 3 7 UMAX I  MUM  NUMBER  OF  CARDS  WERE  READ  IN.) 

4  FORMAT! IX, 37H INPUT  ERROR:  INPUT  FILE  READ  IN  FROM/ 

+  5 1 HCHANNEL  21  CONTAINS  FEWER  ITEMS  THAN  ITIT1AL  FILE) 

5  FORMAT! IX ,4911  INPUT  ERROR:  INDEXING  IN  INPUT  FILE  READ  IN  FROM/ 
+46IICHANNEL  21  IS  INCONSISTENT  WITH  INITIAL  FILE) 


DO  210  I XXX 1  =  1  ,  MXI 

READ! 2 1 ,  1)  XXCOL 1 , I , ( N I TEM ( I , NP ) , NP= 1,5) 
IF ( XXC0L1 .NE. XXSTAR)  GO  TO  200 
NERRXX=NERRXX+ 1 
WRITE! 6,  4) 

IF( PRNTXX. NE.O)  WRITE! 7,  4) 

RETURN 

200  CONTINUE 

IF( I  . EQ.1N0  (1XXX1))G0  TO  210 

NERRXX=NERRXX+ 1 
WRITE! 6,  5) 

IF (PRNTXX . NE . 0  )  WRITE! 7,  5) 

210  CONTINUE 

READ (21,  2)  XXCOL) 

I F ( XXC0L1 . EQ. XXSTAR)  RETURN 
NERRXX=NERRXX+ 1 
WRITE! 6,  3) 

I F ( PRNTXX . NE . 0  WR I TE ( 7 ,  3 ) 


RETURN 

END 


SCBROITINE  I N I  TAX 


ATI  M'H)S 

INITIALIZATION  OF  MODEL  PARAMETERS 


810625  084647151 


C("‘MON  ,  Ai'C  AFC 
COMMON  A  EMIT  Al  'MC 
COMMON  ,  BAFC  BAFC  (  6 ) 

COMMON  Ml  IMG  BllMC(b) 
COMMON  MSG.  B  1  SC( 6  ) 

COMMON  BMTKC  '  I’MTRC 
COMM‘  N  ,  BOFMC  B0FMC16) 

C' ’MM1.  ‘N  Bol,1.:  BoLC(6) 

COMMON  BONMC.  BONMC ( 6  ) 
COMMON  ,/BKSG,  BRSC  (  6  1 
COMMON  BS  BS ( 150) 

COMMON  , US EGG /  BSECC(b) 
COMMON  BSECF,  HSECIM  6  1 
COMMON  /BTCni '  BTCDI 
COMMON  BXTRC  BXTRC 
COMMON  DMTRC  DMTKC 
COMMON  ,  ERHAB  i.RHAB  i  120,10) 
COMMON  ;  ERHAI!  ERHAD I  120) 
Ci'MMi'N  i'.RHD  ERH!) (  ]  50  ) 
COMMON  FAIL.  FAIL i 150.10) 
COMMON  FI’!,T  FI’LT:  150 1 
COMMON  ,  l  l'M  Fi’M i  !  50  ) 

COMMON  i  ,  I 

COMMON  II  MG A  I! MCA (  150) 
REAL  I  I  MCA 

CC'MMON  IIMCB  I  I  MOB 
REAL  IIMCB 

COMMON  /  I  !  MCI)  1  I  MCI) 

REAL  I  I  MCI) 

COMMON  I i MO  I  II  MCI 
HEAL  I! MCI 

COMMON  IIMCK  I1MCR 
REAL  I  I  MGR 

COMMON  IMTKC  IMTKC 
REAL  IMTKC 

COMMON  !Vi  I  NO l  150) 

COMMON  I S  ( I B  I SCB 
REAL  I SCB 

COMMON  I  SCI!  I  SCI) 

Ki . Ai.  i  SC!) 
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COMMON  /I SET/  ISET( 120, 10) 
REAL  ISEi 

COMMON  / 1SETD/  ISETD(120) 
REAL  ISF.TI) 

COMMON  /!,/  L 
COMMON  /MTRC /  MTRC 
REAL  MTRC 

COMMON  /MTRC I /  MTRC I ( 150) 
REAL  MTRC I 
COMMON  /MX I /  MX I 
COMMON  /MXL/  MXL 
COMMON  /MXN’S/  MXNS 
COMMON  /NFD/  NFD(ISO) 

REAL  NFD 
COMMON  /NS/  NS 
COMMON  /OFMCA/  OFMCA(ISO) 
COMMON  /OFMCB/  OFMCB 
COMMON  /OFMCD/  OFMCD 
COMMON  /OLCP/  OLCP 
COMMON  /OLCT /  OLCT 
COMMON  /ONMC/  ONMC 
COMMON  /ONMC A/  ONMCA(ISO) 
COMMON  /RSC/  RSC 
COMMON  /SF.CBC/  SECBC 
COMMON  /SECBP/  SECBP 
COMMON  /SECC/  SECC 
COMMON  /SECDC/  SECDC 
COMMON  /SECDP/  SECDP 
COMMON  /SECIC/  SEC1C 
COMMON  /  SF.CH/  SEC  1 1 
COMMON  ./SEC  IP/  SEC  IP 
COMMON  /SECP/  SECP 
COMMON  /SECR/  SECR 
COMMON  /SECRC/  SECRC 
COMMON  /SF.CRP/  SECRP 
COMMON  /SEDC/  SEDC 
COMMON  /SEINO/  SE1N0(120) 
INTEGER  SEINO 
COMMON  /SEPC/  SEPC 
COMMON  /SETDC/  SETDC (120) 
COMMON  /STDC /  STDC 
COMMON  /STDC I /  STI1CI 
COMMON  /STDCR/  STDCR 
COMMON  /TDC/  TDC(150) 

COMMON  /TERHB/  TERHB( 120) 
COMMON  /TERHD/  TF.RHD(120) 
COMMON  /TERMH/  TERMH 
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COMMON  /TERMI/  TERMI 
COMMON  /TIAC/  TIAC(150) 
COMMON  /TUCTDC/  TUCTDC 
COMMON  /USE/  USE (120, 10) 
COMMON  /USED/  USED (120) 
COMMON  /XITEMQ/  XITEMQ(150) 
C 
C 

DO  220  IXXX1=1 ,MXL 
L=SEINO ( IXXX1 ) 

TERHB(L)=0 . 

TERHD(L)=0 . 

SETDC(L)=0 . 

ERHAD(L)=0 . 

ISETD(L)=0 . 

USED(L)=1 . 

DO  210  NS=1 ,MXNS 
ERHAB(L,NS)=0 . 
ISET(L,NS)=0 . 
USE(L,NS)=1. 

210  CONTINUE 
220  CONTINUE 

DO  240  IXXX1=1 ,MXI 
I=INO( IXXX1 ) 

NFD( I )=0 . 

ERHD( I )=0 . 

XITEMQC I  )=0 . 

BS ( I )=0 . 

TI AC( I )=0 . 

TDC ( I )=0 . 

FPM ( I )=0 . 

MTRCI (I )=0 . 

FPLT ( I )=0 . 

ONMCAC I )=0  . 

OFMCA( I )=0 . 

1 1 MCA ( 1 )=0 . 

DO  230  NS=I ,MXNS 
FAIL(I ,NS)=0. 

230  CONTINUE 
240  CONTINUE 
TERMH=0 . 

TERM 1=0 . 

ISCB=0 . 

ISCD=0 . 

RSC=0 . 

ONMC=0 . 

OFMCB=0 . 


52 


OFMCD=0 . 
SEPC=0 . 
SEDC=0 . 
TCCTDC=0 . 
SECI 1=0. 
SECK=0 . 

1 1  MCB=0 . 

I  IMCI)=0. 

I  IMG  1=0. 

I  I MCR=0 . 
OLC1’=0 . 
OLCT=0 . 
AFC=0 . 

BSECC ( 1 )=0  . 
BSECC!  2  )=0 . 
BSECC ( 3  )=0 . 
BSECC (4  1=0. 
BSECC (5 )=0 . 
BSECC (6 )=0 . 
BSECPC 1)=0. 
BSECP (2 )=0 . 
BSECP ( 3 )=0 • 
BSECP(4 )=0 . 
BSECP ( 5 )=0 . 
BSECP(6)=0 . 
BOLC ( 1 )=0 . 
BOLC (2 )=0 . 
BOLC ( 3 )=0 . 
BOLC  (4)=0 . 
BOLC ( 5 )=0 . 
BOLC (6 )=0 . 
BAECd  )=0. 
BAFCI  '1  )=0 . 
BAEC(3)=0. 
BAFC ( 4 )=0 . 
BAFC ( 5  )=0 . 
BAFC ( 6 )=0 . 
B I  SC ( 1  )=0  . 
B  ISC(2 )=0 . 
B  ISC ( 3 )=0 . 
B I  SC ( 4 ) =0 . 
BISC(5)=0 . 
BISC(6)=0 . 
BRSC ( 1 )=0 . 
BRSC (2 )=0 . 
BRSC ( 3 )=0 . 
BRSC(4)=0. 
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BRSC ( 5  )=0 . 
BRSC ' b  )=0 . 
BONMC ( 1 )=0 . 
BONMC ( 2  )=0 . 
BONMC ( 3  )=0 . 
BONMC (4  |=0. 
BONMC ( 5  )  =  0 . 
BONMC lb )=0. 
BOFMC ( 1 )=0. 
BOFMC ( 2  )  =0 . 
BOKMC (3  )=0 . 
BOFMC'  ( 4  )=0 . 
BOFMC ( 3 )=0 . 
BOFMC It  1=0. 
BI I  MCI ]  )=0 . 
B 1 1 MC ( 2 ) =0 . 
B I  I MC ( 3  )  =0 . 
BI IMC I  4 )=0 . 
BI IMC1S  )=0 . 
BI IMClb )=0 . 
AFMC=0 . 
BMTRC=0 . 
BTCD 1 =0 . 
BXTRC=0 . 
DMTRC=0 . 

I MTRC=0 . 
MTRC=0 . 
SECBC=0 . 
SECBF’=0 . 
SKCC=0 . 
SECDOO . 
SECDP=0 . 

SF.C  I  C=0 . 

SEC  I P=0 . 
SECP=0 . 
SECRC=0 . 
SECRP=0 . 
STDOO . 

STDC I =0 . 
STDCR=0 . 

RETURN 

END 
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SUBROUTINE  ERRCK1 


PERFORM  ERROR  CHECKING  ON  INPUT  DATA  FILES 


810625  084734295 


COMMON  / PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  .-'CON'D/  C0ND(150) 

COMMON  /I/  I 
COMMON  /I  NO/  I  NO (150) 

COMMON  / LE /  LE (5 ) 

COMMON  /LRU/  LRU (150) 

COMMON  /M/  M 

COMMON  /MTBMI /  MTBMI( 150,4) 

REAL  MTBMI 
COMMON  / MX I /  MX  I 
COMMON  / MXM /  MXM 
COMMON  /MXNP/  MXNP 
COMMON  /NERRYY /  NERRYY 
COMMON  /NHI /  NHI ( 150 ) 

COMMON  /NITEM/  N ITEM (150,5) 

REAL  NITEM 

COMMON  ,'NJA/  NJA( 150,4) 

COMMON  /NP/  NP 
COMMON  /NRTS/  NRTS (150) 

REAL  NETS 

COMMON  /RTS/  RTS (150) 

1  FORMAT (/5X.49H INPUT  ERROR:  RTS  +  NRTS  +  CON’D  -=  1  FOR  ITEM  TYPE  ,15 
+  t 

2  FORMAT ( / 5X , 7011  INPUT  ERROR:  INDENTURE  LEVEL  INDICATORS  (LRU  6  NHI) 
+NOT  CONSISTENT  FOR/ 7X , 9H ITEM  TYPE, 15) 

3  FORMAT! /5X, 70)1  INPUT  ERROR:  INDENTURE  LEVEL  INDICATORS  (LRU  6  NHI) 
+NOT  CONSISTENT  FOR /7X.9H ITEM  TYPE.  15) 

4  FORMAT  t  /  5  X ,  4  7  H  I  NPUT  ERROR:  MTBMI  CANNOT  BF.  ZERO  FOR  ITEM  TYPE,  15/7 
+X.25H  IN  OPERATING  ENVIRONMENT, 15) 

5  FORMAT ( / 5 X , 1 7 H I N PUT  ERROR:  NJA( , I  3 , 1 H , , I  1 , 2 7H  )  CANNOT  BE  GREATER  T 
+HAN  3 . ) 


DO  310  I XXX 1  =  1 , MX I 
I  =  I  NO ( 1XXX1  ) 

CK 1 =RTS (  1  )  +NRTS ( I )+COND( I  ) 

I F ( . NOT .  (  CK  1  . GT . 1 . 000001 . OR . CK 1 . LT . . 999999 ) )  GO  TO  210 
NERRYY=NERRYY+ 1 
IFl  PRNTXX. NF..O)  WRITF.(  7,  1)  I 


<  ■ 
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I F ( PRNTXX . \E . D  WRITE (06,  1)  I 
210  CONTINUE 

IF C -NOT. (LRU (II .EQ. 1))  GO  TO  230 
IF( .NOT. (NHI( I) .NE.O))  GO  TO  220 
N’ERRYY=NERRYY+1 
IF (PRNTXX. NE.O)  WRITE (  7,  2)  1 
I F  (  PRNTXX.  NE.  1)  WRITE  (06,  2)  I 
220  CONTINUE 

230  CONTINUE 

IF C -NOT.  (LRU) I)  .NE.  1 ) )  GO  TO  250 
IF( .NOT. (NHI(I).EQ.O))  GO  TO  240 
N'ERRYY=NERRYY+1 
I F ( PRNTXX .NE.O)  WRITE(  7,  3)  I 
IF  (PRNTXX.  N'E.  1)  WRITE(06,  3)  I 
240  CONTINUE 

250  CONTINUE 

DO  280  N'P=  1 , MXNP 

I  F(  .  NOT  .  (N  ITEM  ( I ,NP ) . GT . 0 ) )  GO  TO  270 

I F ( . NOT . ( MTBM I ( I , EE ( NT ) ) . EQ . 0 ) )  GO  TO  260 
NERRYY=NERRYY+ 1 

I F ( PRNTXX .NE.O)  WRITE)  7,  4)  I,LE(NP) 

IF  ( PRNTXX  .  NF. .  1 )  WRITE(06,  4)  I,LE(NP) 
260  CONTINUE 

270  CONTINUE 

280  CONTINUE 

DO  300  M=1 , MXM 

I F ( . NOT . ( N JA ( I , M ) . GT . 3 ) )  GO  TO  290 
NERRYY=NERRYY+1 

I F ( PRNTXX .NE.O)  WRITE)  7,  5)  I,M 
I F( PRNTXX. NE.  1)  WRITE (Ob,  5)  I,M 
290  CONTINUE 

300  CONTINUE 
310  CONTINUE 

RETURN 

END 


SUBROUT  I NE  KLCOMP 


C  810625  084742553 

C*  BASKLINE  CHANGE 
C*  ATI'  MOD  FOR  FLOAT 
C*  SETS  VALUES  FOR  RTS,  NRTS,  CON'D 
C*  DEPENDING  ON  THE  VALUE  OF  RL(I) 

C 

COMMON  /PRN'TXX/  PRN'TXX 
INTEGER  PRN'TXX 
COMMON  /BIRD/  BIRD 
COMMON  /CON'D/  CON'D (150) 

COMMON  /I/  I 

COMMON  .  I  NO;  I  NO (150) 

COMMON  , LRU/  LRU (150) 

COMMON  / MX I /  MX  I 
COMMON  /NRTS/  NRTS (150) 

REAL  NRTS 
COMMON  R  R 
INTEGER  R 

COMMON  -RL-  RLl 150) 

INTEGER  Ri, 

COMMON  RTS'  RTS (150) 

COMMON  -WEAR  WEAR (150) 

C 

C 

C 

Do  Boil  I  XXX 1  =  1, MX  I 
1  =  1 NOt I XXXI  ) 

I  Ft  .NOT. i R . EQ. 1 ) t  GO  TO  210 
RL( ! )=1 
210  CONTINUE 

I F ( .NOT. (R.EQ.2) )  GO  TO  240 

I F ( . NOT . ( LRU ( I) . EQ . 1 ) )  GO  TO  220 
RL i  )= 1 
220  CONTINUE 

I  Ft  .NOT.  (  I.RUt  1  )  .NE.  1 ) )  GO  TO  230 
RLl I )=2 

230  CONTINUE 

240  CONTINUE 

I  F  (  .NOT.  (K.F.U.3)  )  GO  TO  2  70 

I  Ft  .NOT. i LRU l  I  )  .EQ. 1))  GO  TO  250 
KI.i  I  1  =  1 

2  50  CONTINUE 

I F (  . NOT . ( LRU (  I  )  . NE . 1 ) )  GO  TO  260 
RLl  I  )  =  3 
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j* 


260  CONTINUE 

270  CONTINUE 

\V(  .NOT.  (.K.F.Q.4) )  GO  TO  280 
RL(I )=2 

280  CONTINUE 

I  El  .NOT.  CR.EQ.5n  GO  TO  310 

IF t  ..NOT.  (LRL'(I)  .EQ.  1))  GO  TO  290 
RL( I )=2 

290  CONTINUE 

IF(  .NOT.  (I.RU(I)  .NE.  1 ))  GO  TO  300 
RL( I )“3 

300  CONTINUE 

310  CONTINUE 

IFl .NOT. (R.EQ.6) )  GO  TO  320 
RU( l 1=3 

320  CONTINUE 

I F (  .NOT.  (RUT)  .EQ.  1) )  GO  TO  330 
CONI)  ( I  )=VF.AR  ( I ) 

RTS  (I  )  =  U  .  -COND  (!))/(  l.+BIRDi 
NRTS ( I  )=RTS(  I  U-'-BIRD 
330  CONTINUE 

IF ( . NOT . (RL( I ) .EQ . 2 ) )  GO  TO  340 
COND ( I ) =WEAR ( I ) 

RTS (I  1=0. 

NRTS (11=1 -COND ( I ) 

340  CONTINUE 

IF[ . NOT. ( RL( I ) .EQ . 3) )  GO  TO  350 
COND f I )=1 . 

RTS ( 3 )=0 . 

NRTS (I )=0 . 

350  CONTINUE 
360  CONTINUE 


sitkovtist.  otabst 

(’  810625  08-<7505()7 

C  -  PRISTS  SI  MMARY  ! Tl.K  PAGF 


ATI  M:  O  I, 

’k  - 

n  ait;  so 

c  >.mmo\ 

fk.v; 

XX.  PKNTXX 

ISTKGFK 

PRS'l 

XX 

0  MMOS 

FC12 

xx-  itllxx 

:  vrr/.ir.h 

rn,: 

XX 

O'M"  '\ 

F1NC 

F  1  sc 

COMMON 

tor; 

•on1 

(,'! ’.MMi  i.N 

K,  K 

: NTFGKk 

K 

COMMON 

XKf’K 

XFl'K 

COMMIX 

-  XFR 

XFR 

COMMON 

.  KM  1 1 

XM  1 1, 

COMMON 

xvc 

XV  c 

1  FORMAT i 

Hi  I 

2  FORMAT 

•+ AX  .  ; 

H'-': ,  5X  .  2  1  HSYSTF.M  Ol’KKAT  1  NC,  U  FT  .  1 X  .  F5 . 2 ,1 X  .  5HYFARS  ,  AX  ,  1 

+}!■•■  —X. 

1 IP- .  - 

2X  ,  1  !!'•'■'  TAX  ,  1  If  , A2X ,  1 H*  ) 

FORMAT i 

44X . : 

If  .  5X  .  2  1  HRKi’AfR  LEVEL  CASE  HI'S  ,  2X  ,  13.  !  IX,  1 if  AAX  .  l)f  ,  A 

-.X,  1  H"' 

Y  i 

It'"  ,  A2X ,  Of  1 

-  FORMAT: 

-  4  X  ,  : 

If  ,  5X ,  30HSRSS1TI V ITY  MVI.TtPi.lF.R  FACTORS,  7X,  1  If  •  AA>1 ,  Ilf 

+  .-AX , !H 

'  F  'KM AT  1 

; 

if  , OX  ,  jHXVC  ,1 X  , FI -4 . 5 , 1  5X  ,  1 H"  ) 

t'  FORMAT  i 

♦  1 

If .  OX  .  3HXFR  ,  IX ,  FI  A  .  3 , 1  5X  ,  1  1 

'  FORMAT i 

^  w  V  ] 

if ,  AX  ,  AHXFi’R  ,  F 1 A  .  3 , 15X,  1  If  ) 

S  FORM AT: 

44A,  : 

ii  .9X,"HXMl!,.KlA.3n5X,lH") 

U  F'>KMATi 

4  X  ,  1 

it  ,  OX  ,  AHF  i  SC  ,  F 1-4  .  3,  !5X,  l!f  AAX,  Ilf  ,A2Xnif  A4X,i*»i  Ilf  i 

C 

C 

c . i  N1,Y  PRIST  Tins  TABIi:  IF  VIU,  OFF-UXV,  OITPVT  WAS  RKUI  KSTI-.H 


[V:  FRNTXX 

.  Mil 

O.OK.FrLFXX.RO. 01  KF'VRN 

WkJTF.f  r. 

!  t 

WRITF.f  7, 

2  ) 

10  VP 

WK ' TF ( 

'1  i 

K 

WKITF.l  7, 

A  ) 

U  K I TF (  7  , 

5  ; 

XIX 

WK I TF  t  7, 

o  1 

XFR 

WK.'TKl  7, 

7  ; 

XFPK 

W  K I TF (  7. 

8  ) 

XM11. 

WKiTFl  7. 

'i  i 

F  I  SC 

5  9 


SUBROUTINE  I TAB 1A 


C  810625  084753916 

C*  PRINTS  THE  SYSTEM-WIDE  SCALAR  PARAMETERS 
C*  READ  IN  FROM  THE  MI  SC.  DATA  FILE  : PART  1 


COMMON  /PRN'TXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FL'LLXX 
INTEGER  FULLXX 
COMMON  /BAA/  BAA 
COMMON  /BLR/  BLR 
COMMON  /BMF/  3MF 
COMMON  / DAA /  DAA 
COMMON  / DLR/  DLR 
COMMON  /DMF /  DMF 
COMMON  /HPD2/  HPD2 
INTEGER  HPD2 
COMMON  /MI LR/  MILRC3) 

REAL  MILK 
COMMON  /MRF /  MRF 
REAL  MRF 

COMMON  MRO  MRO 
REAL  MRO 

COMMON  /PALI/  PALI 
COMMON  /PAL2B/  PAL2B 
COMMON  /PAL2D/  PAL2D 
COMMON  /PMLR/  PMLR 
COMMON  /SR/  SR 
COMMON  /TNLR/  TNLR 
COMMON  /TORB/  TORB 
COMMON  ,'TOKD/  TORD 
COMMON  /TR/  TR 
COMMON  /TRAVB/  TKAVB 
COMMON  /TRAV1D/  TRAV11) 

1  FORMAT!  1 H 1  /'44X  .44HINPUT  TABLE  1:  SYSTEM-WIDE  SCALAR  PARAMETERS///) 

2  FORMAT! SOX , 30HG0VERNMENT- PROVIDED  PARAMETERS/ ) 

3  FORMAT! 26X , 1 3HLABOR  FACTORS/) 

4  FORMAT! 29X.59H  BAA  -  MONTHLY  AVAILABLE  WORKING  HOURS  PER  MAINTEN 
+ANCE  / 38X , 50HMAN  AT  BASE  LEVEL 

+  F  1  4 . 2  ) 

5  FORMAT ( 29X , 59H  BMF  -  BASE  MAINTENANCE  FACTOR 

+  ,  F  1 4 . 2  .) 

6  FORMAT! 29X.59H  DAA  -  MONTHLY  AVAILABLE  WORKING  HOURS  PER  MAINTEN 

+ANGE  / 38X , 50HMAN  AT  DEPOT  LEVEL 

+ F 1 4 . 2  ) 
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7  FORMAT (29X, 5 9H  DMF  -  DEPOT  MAINTENANCE  FACTOR 

+  » F 1 4 . 2  ) 

8  FORMAT !29X,59H  HPD2  -  NUMBER  OF  HOURS  SPENT  BY  A  TYPE  2 

+  /38X  ,  50HTRAINF.E  IN  CLASS  PER  DAY 

+1 14  ) 

9  FORMAT ( 29X , 59H  MRO  -  AVERAGE  MANHOURS  PER  FAILURE  TO  COMPLETE 

+  /38X, 50H0N -EQUIPMENT  MAINTENANCE  RECORDS 

+F14.2  ) 

10  FORMAT(29X,59H  MRF  -  AVERAGE  MANHOURS  PER  FAILURE  TO  COMPLETE 

+  /36X  ,  50HOFF-EQUI  PME.N'T  MAINTENANCE  RECORDS 

+F14.2  ) 

11  FORMAT  ! 29X ,  59H  Sk  -  AVERAGE  MANHOURS  PER  FAILURE  TO  COMPETE 

+  /38X , "OHSUPPLY  TRANSACTION  RECORDS 

+ F 1 4 . 2  ) 

12  FORMAT! 29X.59H  TORB  -  TURNOVER  RATE  FOR  BASE  MAINT.  PERSONNEL 

+  , F 14 . 2  ) 

13  FORMAT (29X , 59H  TORI)  -  TURNOVER  RATE  FOR  DEPOT  MAINT.  PERSONNEL 

+  ,  F 1 4 . 2  ) 

14  FORMAT! 29X.39H  TR  -  AVERAGE  MANHOURS  PER  FAILURE  TO  COMPLETE 

+  / 38X , 30HTRANSP0RTAT 1  ON  TRANSACTION  FORMS 

+F 14.2  ) 

1 5  FORMAT !  1 X/ 26X , II H LABOR  RATES / ) 

16  FORMAT f 2 9X , 3 9H  BLR  -  BASE  MAINTENANCE  LABOR  RATE  IN  S  PER  HOUR 

+  ,  F  1 4 . 2  ') 

17  FORMAT (29X , 59H  DLR  -  DEPOT  MAINTENANCE  LABOR  RATE  IN  S  PER  HOUR 

+  ,  F 1 4 . 2  ) 

IS  FORMAT ( 28X  ,  5  5H.M F  LR (  1  )  -  MOD/ INSTALLATION  LABOR  RATE  DURING  PRODUCT 
+  ION/38X,  I3HIN  S  PER  HOUR  ,  37X  ,  F 1 4 . 2/28X  ,  52H.MI  LR  ( 2  )  -  MOD/ I NSTALLATI 
+0N  LABOR  RATE  FOR  FIELD  MODS/ 38X , 30HUS ING  DEPOT  TEAM  IN  $  PER  HOUR 
+  ,  20X ,  F14 . 2/28X  ,  56H.MI  LR!  3 )  -  MOD/ INSTALLATION  LABOR  RATE  FOR  MODS  P 
+ERF0RMED/38X , 26HAT  THE  DEPOT  IN  S  PER  HOUR , 24X , F14 . 2 ) 

19  FORMAT! 29X.59H  PALI  -  AVERAGE  DAILY  PAY  &  ALLOWANCE  FOR  A 

+  / 38X , 50HTYPE  1  TRAINEE 

+F14.2  ) 

20  FORMAT! 29X.59H  PAL2B  -  AVERAGE  DAILY  PAY  8  ALLOWANCE  FOR  A 

+  / 38X , 50HTYPE  2  TRAINEE 

+F14.2  ) 

21  FORMAT! 29X.59H  PAL2D  -  AVERAGE  DAILY  PAY  8  ALLOWANCE  FOR  A 

+  / 38X , 50HTYPE  2  DEPOT  TRAINEE 

+F14.2  ) 

22  FORMAT!  29X,  59H  PMLR  -  PRIME  MISSION  EQUIP  OPER  LABOR  RATE  IN  S  PF. 
+R  HOUR  , F 1 4 . 2  ) 

23  FORMAT ( 29X , 59HTRAV II)  -  AVERAGE  TRAVEL  EXPENSE  FOR  TYPE  1  AND  TYPE 

+2  /38X , 50HDEPOT  TRAINEES 

+F14.2  ) 

24  FORMAT! 29X.59H  TRAVB  -  AVERAGE  TRAVEL  EXPENSE  FOR  TYPE  2  BASE  THAI 
+SEES  , F 1 4 . 2  ) 


25  FORMAT ( 29X , 59H  TNLR  -  TIMING  NET  OPERATOR  LABOR  RATE  IN  $  PER  HOI' 
+R  ,  F 1 4 . 2  ) 

C 

C 

C 

C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F  ( PRN'TXX  .  EQ  .  0  .  OR  .  FULLXX .  EQ  .  0 )  RETURN 
C 

WRITE (  7,  1) 

WRITE!  7,  2) 

WRITE (  7,  3) 

WRITE (  7,  4)  BAA 
WRITE (  7,  5)  BMF 
WRITE (  7,  o)  DAA 
WRITE  (  ',  7)  IXMF 
WRITE (  7,  8)  HPD2 
WRITE!  7,9)  MRO 
WRITE!  7,10)  MRF 
WRITE!  7,11)  SR 
WRITE!  7,12)  TORB 
WRITE!  7,13)  TORD 
WRITE!  7,14)  TR 
WRITE!  7,15) 

WRITE!  7,16)  BLR 
WRITE!  7,17)  DLR 
WRITE!  7,18)  (MILRlKl ) ,K1=1 ,3) 

WRITE!  7,19)  PALI 
WRITE!  7,20)  PAL2B 
WRITE!  7,21)  PAL2D 
WRITE!  7,22)  PMLR 
WRITE!  7,23)  TRAY  ID 
WRITE!  7,24)  TRAVB 
WRITE!  7,25)  TNLR 
C 

RETURN 

END 
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SUBROUTINE  I TAB  IB 


C  81061:5  084803848 

C*  PRINTS  THE  SYSTEM -WIDK  SCALAR  PARAMETERS 

C*  REAL)  IN  FROM  THE  MI  SC.  DATA  FILE  :  PART  2  * 

C 

COMMON  ,'PKNTXX.  l’RNTXX 
INTEGER  PRNTXX 
COMMON  . FULLXX  FUI.LXX 
INTEGER  FULLXX 
COMMON  /ACPI'  ACFP 
COMMON  /BKCT/  BKCT 
COMMON  /CFG/  CFG (8) 

COMMON  CPD2  CPD2 
COMMON  /CPPC/  CPPC 
COMMON  /CIT’D/  CPI’IU  3  ) 

COMMON  /CRCT;  CRCT 
COMMON  /DAI)/  DAD 
COMMON  /DRCT/  l)RCT(3) 

COMMON  /IMG/  IMG 
REAL  1MC 

COMMON  /OST/  OSTC  3 ) 

COMMON  /OSTC/  OSTC 
COMMON  /RCPP/  KCPP 
COMMON  KMC/  KMC 
COMMON  /SA/  SA 
COMMON  ,'UCPP,  UCPP 

1  FORMAT!  1111/ 44X,*-0I  INPUT  TABLE  1:  SYSTEM-WIDE  SCALAR  PARAMETERS/ b IX 
+  ,  1  1  H  i  CONTINUED  i  /  .'/  ) 

2  FORMAT  l  1X/26X  ,  14IIPI  PELINE  TIMES/) 

3  FORMAT!  2 0 X ,  5HH  BKCT  -  BASE  REPAIR  CYCLE  TIME  IN  MONTHS 

+  , FI  5 . 3  ) 

4  FORMAT!  2‘>X,5‘)H  CRCT  -  TIME  FOR  FAILURE  AT  SATELLITE  BASE  UNTIL  RE 
+PAIK  /38X , 50HAT  CIMF  BASE  IN  MONTHS 

+K15.3  ) 

5  FORMAT! 2‘LX , 59H  DAD  -  TIME  FROM  FAILURE  REMOVAL  AT  DEPOT  UNTIE  RE 
+  PAIR  / 38X  ,  501IAT  DEPOT  IN  MONTHS 

+F  13.3  ) 

6  FORMAT! 28X, 54HDKCT! 1)  -  TIME  FROM  FAILURE  AT  CONUS  BASE  UNTIL  REPA 

+  IR/38X, 18HAT  DEPOT  IN  MONTHS , 32X , FI  5 . 3/28X , 5bHI)KCT( 2 )  -  TIME  FROM 
+EA I  LURE  AT  PACIFIC  BASE  UNTIL  REPA I R/ 38X , t SHAT  DEPOT  IN  MONTHS, 32X 
+ ,FI 5 . 3/28X , 55HDKCT! 3 )  -  TIME  FROM  FAILURE  AT  EUROPE  BASE  UNTIL  REP 
+AIR/38X.  18HAT  DEPOT  IN  MONTHS , 32X , E 1  5 . 3/28X ,  5211  OST! 1  -  ORDER  AND 

+  SHIPPING  TIME  FROM  CONUS  BASE  TO/ 38X , 1 5HDEPOT  IN  MONTHS , 35X , FI  5 . 3 
+/28X.54H  OST( 2 )  -  ORDER  AND  SHIPPING  TIME  FROM  PACIFIC  BASE  TO/38X 
+ , 1 5HDEPOT  IN  MONTHS , 35X,IT  5 . 3/28X,  53H  (1ST! 3 )  -  ORDER  AND  SHIPPING 


+TIMK  FKOM  Kl.RO  PH  BASE  T0/38X ,  1 5HDF.P0T  IS  MONTHS  ,  35X ,  FIS  .  3/ 28X  ,  35H 
+  OSTC  -  ORDER  AND  SHIPPING  TIME  FKOM  A  SATELLITE  BASE/ 38X , 26HT0  I 
+TS  01MF  BASE  IN  MONTHS , 24X , FI  3 . 3/ ) 

7  FORMAT  ( 2bX , 1 7  III  N  1 T  COST  FACTORS/) 

8  FORMAT!  29X ,  3911  ACPP  -  ACQUISTION  COST  PER  PAGE  FOR  ORIGINAL 

+  /  38X  ,  30HNF.GATI  VES  OF  TECH.  DATA 

+F1 3 . 3  ) 

9  FORMAT!  28X.  "'311  CFGl!)  -  COST  OF  FILL  IN  $  PER  GALLON  AT  CONI'S  BASE 

+S,7X,  F13. 3/2SX.  7311  CFG(2i  -  COST  OF  FUEL  IN  S  PER  GALLON  AT  PAG  I  FI 
+C  BASES , 5X , FI >  LSX.S*!!  CFG  I  3 )  -  COST  OF  FUEL  IN  $  PER  GALLON  AT 
+EUROPF.  BASES .rX.Fl 3 . 3. 28X, 32H  CPI) 2  -  COST  PER  CLASS  PER  DAY  FOR 

+TYPE  2  TRAINING, KX, FI  3 . 3/28X.55H  CPPC  -  COST  OF  PACKING  AND  SHIP 
+PING  FROM  A  SATE  LI.  I TE  ■'  38X ,  47HBASE  TO  ITS  CIMF  BASE  IN  $  PER  NET  WE 
+  IGHT  POUND, 3X, FI  '.3  28X , 34HCPPD! 1)  -  COST  OF  PACKING  AND  SHIPPING 
+FROM  CONUS  BASE, 3SX.34HTO  DEPOT  IN  S  PER  NET  WEIGHT  POUND, 16X. FI  5 . 
+3/28X ,  5M1CPP1) 2  )  -  COST  OF  PACKING  AND  SHIPPING  FROM  PACIFIC  BASE, 
+38X , 34HT0  DEPOT  IN  $  PER  NET  WEIGHT  POUND , 16X , F3  5 . 3/28X ,  5 5HCPPD< 3  i 
+  -  COST  OF  PACKING  AND  SHIPPING  FROM  EUROPE  BASE/38X , 34HTO  DEPOT  I 
+N  S  PER  NET  WEIGHT  POUND , 1 6X , F 1 5 . 3  ) 

10  FORMAT! 29X.39H  RCPP  -  REPRODUCTION  COST  PER  COPY  PER  PAGE  OF 

+  / 38X , AOHTECH .  DATA 

+F15.3  ) 

11  FORMAT! 29X.59H  IMG  -  INITIAL  DEPOT  INVENTORY  MANAGEMENT  COST  PER 
+  NEW  /38X , 50HPART  IN  $ 

+F15.3  ) 

12  FORMAT! 29 X, 39 H  KMC  -  RECURRING  DEPOT  INVENTORY  MANAGEMENT  COST  P 
+ER  NEW  /  38X ,  30HPART  IN  S  PER  YEAR 

+F15.3  ) 

13  FORMAT! 29X, 39H  SA  -  BASF. -LEVEL  INVENTORY  MANAGEMENT  COST  PER  NK 
+W  FART  /38X, I OH  IN  $  PER  YEAR 

+F 13.3  ) 

14  FORMAT (29X.59H  UCPP  -  UPKEEP  COST  PER  YEAR  PER  DISTINCT  PAGE  OF 

+  / 38X , 30HTECH .  DATA 

+F13.3  ) 


ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 
1  Ft PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 


WRITE! 
WRITE! 
WRITE! 
WRITE! 
WRITE! 
WRITE! 
W  IN  I  TE  ( 


1  ) 

2) 

3  )  BRUT 
4)  CkCT 
3  )  DAD 

(i  I  (  DRCT!  K2  )  ,K2=1  ,  3  )  ,  (0ST(K3  )  ,K3=1  ,  3  )  ,OSTG 
7  ) 
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WRITE ( 

7,  81 

ACPP 

WRITE ( 

7,  9) 

!CFG(K4 ) , K4=l , 3) , CPD2 , CPPC , (CPPD!K5 ) , K5=l , 3 ) 

WRITE! 

7,10) 

RCPP 

WRITE! 

7,11) 

1MC 

WRITE! 

7,12) 

RMC 

WRITE! 

7,13) 

SA 

WRITE! 

7 , 14) 

UCPP 

RETURN 

END 
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C*  PRISTS  THE  SYSTEM -V IDE  SCALAR  PARAMETERS 
C*  READ  IS  FROM  THE  Ml  SC.  DATA  FILE  :  PART  3 


COMMOS  '  PKSTXX,  PKSTXX 
INTEGER  PKSTXX 
COMMOS  .  ITT.LMX/  FFLLXX 
I STECEK  FFLLXX 
COMMOS  • BDATA/  BDATA 
I STECEK  BDATA 
COMMOS  BE,  BE 
COMMoS  BIRD.  BIRD 
COMMOS  ,  Ci’Dl  FED  1 
COMMOS  DDATA/  DDATA 
I STECEK  DDATA 
COMMOS  FSEDC,  FSEDC 
COMMA’S  HIT)  1 H  1*1)  1 
I  STECEK  H I’D  1 
COMMOS  KFAC  '  KFAC ( A  i 
REAL  KFAC 

COMMOS  /MUSE/  MUSE 
REAL  MUSE 

COMMON  ,'SKUC/  SKUC 
REAL  SKUC 

COMMOS  /PI UP/  PI  UP 
COMMOS  /QTYP1/  QTYP1 
INTEGER  OTYIM 
COMMOS  /QTYP2B/  QTYP21) 
INTEGER  QTYP2B 
COMMON  /QTYP2I)/  QTYP21) 
INTEGER  QTYP2D 
COMMOS  / R /  R 
INTEGER  R 

COMMON  / SEC  1  /  SPC1 
INTEGER  SI'Cl 
COMMOS  /SPC2/  SPC2 
INTEGER  SPC2 
COMMON  /TEEM/  TEEM 
COMMOS  /TYP2TE/  TYP2TF 
COMMON  ,'XEPK/  XEPR 
COMMON  /XER/  XER 
COMMON  / XM  II,/  XMIL 
COMMON  /XUC/  XUC 


t>7 


1  FORMAT f  1H1/44X,44HINPUT  TABLE  1:  SYSTEM-WIDE  SCALAR  PARAMETERS/6  IX 
+.11HICONTINUED}///) 

2  FORMAT ( 1X/26X , 2 1HM I SCELLANEOUS  FACTORS/) 

3  FORMAT ( 28X , 4 1 H  BF  -  COEFFICIENT  IS  SPARING  FUNCTION, !9X,F14 . 2) 

4  FORMAT ( 29X, 59H  BIRD  -  FRACTION  OF  BASE-REPAIR- INTENDED  FAILURES 

+  / 38X ,  50HREQU I R I  NG  DEPOT  REPAIR 

+F14.2  ) 

5  FORMAT! 26X , 54HKFAC ( 1  )  -  FAILURE  RATE  EXPERIENCE  FACTOR  FOR  AIRBORN 
+E-/38X, 19HF1 OUTER  ENVIRONMENT, 3IX,F14.2/28X,54HKFAC(2)  -  FAILURE  K 
+ATE  EXPERIENCE  FACTOR  FOR  AIRBORNE-/38X, 17HCARGO  ENVIRONMENT, 3 3X , F 
+14 . 2/28X , 52HKFAC ( 3)  -  FAILURE  RATE  EXPERIENCE  FACTOR  FOR  GROl'ND-3 
+8 X , 3 1 H F I XED /TRANSPORTABLE  ENV I RONMENT . 19X.F14 . 2/28X, 52 HR FAC ( 4 )  -  F 
+AILURE  RATE  EXPERIENCE  FACTOR  FOR  GROUND -/38X, 18HMOBILF.  ENV 1 RONMEN 
+T , 32X , F 14 . 2 ) 

6  FORMAT ( 29X , 59H  MUSE  -  MINIMUM  FRACTIONAL  UTILIZATION  FOR  SENSITIV 

+  ITY  / 3 8 X , 5 0 H C A LC U LAT IONS  ON  SUPPORT  EQUIPMENT  COSTS 

+F14.2  ) 

7  FORMAT! 29X , 59H  NRUC  -  NUMBER  OF  YEARS  OF  REPLACEMENT  SPARES  TO  HE 

+  /38X, 50HPROVIDED  UNDER  THE  ATU  PRODUCTION  CONTRACT) S  ) 

+F14.2  ) 

8  FORMAT! 29X.59H  PUT  -  NUMBER  OF  SYSTEM  OPERATING  YEARS 

+  ,  F 1 4 . 2  ) 

9  FORMAT! 29X.59H  QTYPI  -  NUMBER  OF  TYPE  )  TRAINEES 

+  ,114  ) 

10  FORMAT! 29X.59HQTYP2B  -  NUMBER  OF  TYPE  2  BASE  TRAINEES 

+  ,114  ) 

11  FORMAT! 29X , 59HQTYP2I)  -  NUMBER  OF  TYPE  2  DEPOT  TRAINEES 

+  .114  ) 

12  FORMAT! 29X.59H  SPC2  -  MAXIMUM  NUMBER  OF  TYPE  2  TRAINEES  PER  CLASS 

+  ,114  i 

13  FORMAT! 29X.59HTYP2TP  -  RAT  I o  OF  TYPE  2  TRAINING  TIME  TO  TYPE  1 

+  38X, 80HTKA1NING  TIME 

+F14.2  ) 

14  FORMAT  I  29X ,  59H  XFI’R  -  FALSE  PULL  RATE  SENSITIVITY  NUT!  I’Ll  EK  FACTO 

+K  , F 1 4 . 2  ) 

15  FORMAT! 29X.39H  XFR  -  FAILURE  RATE  Sr"  TIVITY  MULTIPLIER  FACTOR 

+  , FI4 . 2  ! 

16  FORMAT!  29X.59H  XMIL  -  M'  D  I  LAI.  SENSITIVITY  MULTIPLIER  FA 

+CTOR  , F 1 4 . 2  i 

17  FORMAT! 29X.59H  XUC  -  UNIT  COST  SENSITIVITY  MULTIPLIER  FACTOR 

+  ,  F 1 4 . 2  ) 

1 8  FORMAT! 1H1 /44X.44H INPUT  TABLE  1:  SYSTEM-WIDE  SCALAR  PARAMETERS /SIX 
+  , 1 1 H ( CONTINUED)//  /  ) 

19  FORMAT! IX , /OX , 34HCONTRACT()k  -  DETERMINED  PARAMETERS//) 

20  FORMAT! 29X. 5911  BDATA  -  NUMBER  OF  TECH .  DATA  PAGES  FOR  BASE  MAI  NT. 
+AND  /  38X  ,  50  KNOT  ITEM  OR  SF.  SPECIFIC 

+  114  ) 


WRITE (  7,24)  HPDI 
WRITE!  7,25)  R 
WRITE!  7,26)  SPC1 
WRITE!  7,27)  TEFM 

RETURN 

END 
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I 


Sl'BkiV,  T1NK  I  TABU 


ATI  '101)  LCK 

!’K  !  NTS  BASK  CONK1  OI  'KATl  ON  DATA 


ft  I  0  c  U  >  0  S  H  1  r>  I  7  A 


common 

PRNTXX 

I’KNTXX 

I  NTKOF.k 

I’KNTXX 

CX'MMON 

FT  MAX  ' 

Fn.i.xx 

!  NTr.GMk 

FI  i  .1  .XX 

common 

BNOl'N  B 

NOFN t 10,1b) 

COMM'  IN 

FT  FAT  B 

FI. AT!  FM 

I  STKvjhK 

HI’l.AT 

P,  "I'MN 

S  F  PS! 

tit  i 

BSP 

r-  tion 

BTYPF  B 

TYPF  ;  :  t)  ) 

INTK.JKk 

}yyy}yy. 

O'  ■MMON 

)  j 

IV'MMt ' N 

mxns 

NS 

{*•  '1MON 

NHO  NBA 

(  1  k'  ) 

Ki'.AD  NHO 

IVMMilV, 

NiiB  NO, 

1  .  •  s 

to  MM  ON 

NS  NS 

OOMMl  N 

TNB  TNB 

{  1  1  •  \ 

1  KOKM.  TllHl  USX. 

-DilNPl”:  TAB 

+HNKXT . n> 

. SHNtT  ,  ‘ 

X  .  -HBASF. ,  pX 

+F.3X, 7HI 

0(1.  OF,- 

X  ,  -HBASi.  ,  -*X 

-t-ppok'T 

,  ~>H  j  N J ) ; > 

,  8X  .  -HNAMF. , 

+  S  K  ,  r  X  ,  -» ! 

;  m  :•  i  ^  v  ^ 

)KMS  ,  JX  , 

+  ,  itiiTNP 

,  •“  X ,  *♦»: ;  ! 

0  :  ,  -,X  .  T!  BT 

+ .  :5X ,  liit  ;• 

Si’  ‘  i 

u  format i : 

x , : o  .-x 

ib.Al  .-XJT  . 

i  oiii’in  dosophy  3x.-Hi\S)  ;hs  'tn 


.ONLY  PRINT  THIS  TABl.F  IK  KIT,1,  OFF -I.  INF.  OITI’l'T  WAS  KIT.:  i: 

i  r  i  I’Hntxx  .  r.ij .  ■  .  "k .  n  i,;,xx  .  kq  .  o  t  k  r;  kn 


uk.  :  !■.  (  .  .  I  ) 

DO  U1P  NS=1  ,  MXN'S 

WKTTiT  r,  0!  \S  ,  i  HNOI'N (  NS  ,  I  1  )  ,  ]  1  =  1  ,  1  b  l  .TNB  l  NS  1  ,  1,0 1  NS  ;  , 
+  NUB  I  NS  )  ,  NHCt  NS  ;  .  Hi 'I.  ATI  NS  :  ,  BSl'i  NS  t 
:  1  0  CONTiNl  K 


BTY  •  ’!  \S  1 


KK.TI'KN 

KND 


SUBROUTINE  I TAB'S 

C  810625  084821760 

C*  ATU  MOD  LCK 

C*  PRINTS  PLATFORM  OPERATION  DATA  FILE 
C 

COMMON  ■  I’RNTXX  '  PRNTXX 
INTEGER  PRNTXX 
COMMON  TTI.LXX/  FULLXX 
INTEGER  FULLXX 
COMMON  AMPM,  AMPM! 5,3) 

COMMON  APFH/  APFH (5,3) 

COMMON  / FGH /  FGH ( 5  ) 

COMMON  LE,  LE:5j 

COMMON  / M /  M 

COMMON  /MM  PI)  •'  MM  PD  (5,3) 

REAL  MM PD 

COMMON  /MM PM/  MMPM (  5 i 
REAL  MMPM 

COMMON  /MXNP '  MXNP 

COMMON  /NT/  NP 

COMMON  f'NOl’N  PNOl'N  <  5  ,  1  2  ) 

COMMON  TFAC  TFAC! 5) 

COMMON  ,'THRS ;  THRS  (  5  ) 

1  FORMAT! 1H1/44X,39HISPUT  TABLE  3:  PLATFORM  OPERATION  DATA  /  '2X , 5HP 
+  LAT- , 1 6X , 3HES- . 2X , 2!)H*OPEKAT I NG  HOURS  1 N* , 6HUT 1 L 1  - . 1X.5HACTI - , IX, 2 
+t)H*MI  SSI  ON'S  PER  MONTH*. 4X,  1  1HOTHER  HOURS. 4X,  1 H*  ,  6HTHRUST ,  2X  ,  7I1GALL 
+ONS  2X ,  4HFORM  ,  3X  , 8 li PLATFORM  , 6X  .  e>HV I  RON*  ,  1 8  (  1 H -  1  ,7H*ZATIO.N,  IX,  7HVAT 
+ 1  ON* , 1 ri (  Hi  -  ) , 1H* , 10(1H-) . 1H* , IX, CHIN, 6X.3HPER/2X, 5H INDEX, 2X, 12HNOM 
+ENCLATURK  ,  2X  .4HMKNT .  1 X ,  20H--C0NUS  PAC I F  EUROPE*  ,  t>HF ACTOR  ,  IX  ,  4HT I  ME  , 
+2X , 20H--CONUS  PAC IF  EUROPE* , 20H  CONUS  PAC IF  EUROPE* , bHPOUNDS , 2X , 7H0 
+  PEK  HR  2X,h!1i  NP)  , -X  ,  711;  PNOUS  )  ,  6X.4HI  LE  I  ,9X,6H(  APFH  )  ,  oX  ,  611 !  TFAC  )  ,  IX 
+  ,  hill  MMI’M  !  ,  8X.6H1  AMPM  )  ,  1  3X ,  oil  (  MMPD)  ,  fiX  ,  fell  (  THRS  i  ,3X.5H(FGH  )  1 

2  FORMAT  (  2X  ,  !  3 , 3X  ,  1  LA  1  ,  3X  ,  I  2 , 3X  ,  F  5 . 0 , 1 X  ,  F  5 . 0 , 1 X  ,  F  5 . 0 , 4X  ,  IT  .  2.2X.F4 
+  ,  3X  .  F  > .  I  ,  IX,  F5  .  1  ,  IX.  F  5  .  1  ,  IX.Fb.  1  ,  IX,  Ft  .  1 ,  IX,  Fo.  1  ,  IX.  Fh  IX.  Ft  .0  > 

C 

C 

c 

C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F i i RNTXX . EQ .  i  .OR. FULLXX . EQ . 0 r  RETURN 
C 

WRITE!  7,  1) 

IK)  2  10  NP=  1  , MXNP 

WRITE!  7,  2  i  NP.  ( I’NOUNi  NT .  K  1  i  ,K1  =  !  ,  12  )  ,I,E(NP  ■  ,  i  APFlii  NP.M  )  ,M=1  , 

+  3. )  ,  TFAC  (  NP  j  ,  MMPM  t  NP  )  ,  (  AMPM !  NP.M  i  ,M=1  ,3  )  ,  i  MMPDi  N'P.M  I  ,M=1 . 3  )  , 

THRSr.NP  ;  ,  FGH  <  NP 


+ 


.  -J*  - 


810625  084824136 


C 

C*' 

C* 

C* 

C* 

c*- 

c 


c 

c 

c 

c 


Sl'BROrriNK  ITAB4 


ATI.'  MOD  LCR 

PRINTS  Pi. ATP  .'KM  ".'HP M 1  SAL  COST  AND  INITIAL 
MOD  INSTA1.I.ATI  ■  A  LATA  FILL 


COMMON  t’KNTXX.  i'KNTXX 
INTF.GEk  I’KNTXX 
COMMuN  .  FULLXX  FPI.LXX 
INTEGER  Fl'LLXX 
COMMON  /DRAG,'  DRAG (5.) 

COMMON  |FR/  FRO,  5) 

COMMON  /  IN'TNR/  INTNR(S) 

REAL  INTNR 

COMMON  / I NTR/  INTR(5) 

REAL  I NTR 
COMMON  / K/  K  f  5  ) 

REAL  K 

COMMON  />!/  M 
COMMON  /MXNP/  MXNP 
COMMON  /XAE/  NAE (5) 

REAL  NAE 
COMMON  / N P /  NP 
COMMON  /NRMI /  NRMI ( 5  ) 

REAL  NRMI 

COMMON  'NTRMP/  NTRMP (51 
REAL  NTRMP 

COMMON  /  PI)  IV/  PD  TV  (  5  ) 

1  FORMAT ( 1 H 1 / 2 7 X , 76H INPUT  TABLE  4:  PLATFORM  TERMINAL  DATA  6  NON-REC 
+URRING  MOD/ INSTALLATION  DATA//43X.23HIN  THOUSANDS  OF  DOLLARS/// 10X 
+ , 3HNO . . 43X , 5HPLAT- , 2 IX . 3HNO . , 5X , 4HLBS , . 4X , 6HTHRUST/2X , 5HPLAT- , 3X , 3 
+HPME  ,  7X ,  5 MOTHER  ,  32X  ,  4HF0RM  ,  3X .  18H "'FRACTION  MODS  IN"  ,  IX  ,  5HADDED  ,  3X  , 
+4HDRAG , 4X , 5H-FUEL/2X , 4HF0RM , 4X , 4HTER- , 6X , 5HPROD .  , 5X , bHRECUR .  ,  5X  ,  1 0 
+HNON- RECUR . ,4X, 6HDIVER- , IX . 1 H*,16 ( 1H- ) , 1H* , IX , 5HANTEN , 3X , 3HPER , 5X , 
+6HCNSMPT /2X , 5H INDEX , 3X , 6HMTNALS , 4X , 5HCOSTS ,6X , 5HINTEG , 6X , 10HM0D/ 1 
+C0ST,4X,4HSITY,3X,  18H---PR0D  FIELD  DEPOT"  ,  IX  ,  3HNAS  ,  5X  ,  5HANTEN  ,  3X  .  6HF 
+ACTOR/2X  .4HCNP )  ,4X  ,  71H  NTRMP)  .  3X  ,  7H(  IN’TNR)  ,4X,6H(INTR)  ,7X,6H(NRMI  )  , 
+6X , 6H  (  PD  I  V ) , 8X , 4H ( FR ) , 8X , 5H ( NAE ) , 3X , 6H (DRAG) , 3X , 3H (K) / ) 

2  FORMAT ( 2X , I  3 , 5X , F5 . 2 , 3X , F 10 . 3 , IX , F9 . 3 , 2X , F 10 . 3 , 5X , F5 . 2 , 3X , 2 ( F4 . 2 , 2 
+X) .F4.2.3X.F5 .2.3X.F5 . 1 ,4X,F5 .2) 


ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 
I F ( PRNTXX . EQ . 0 . OR , FULLXX . EQ . 0 )  RETURN 


74 


WRITE (  7,  1) 

DO  210  NP=1 ,  MXS'P 
T1=INTNR(S'P)  / 1000 
T2=INTR(NP) / 1000 
T3=NRMI (NP)/1000 

WR1TEC  7,  2)  NP,N'TRMP(NPj  ,T1  ,T2  ,T3  ,  PDIV(NP) ,  (FR(M.NP)  ,M-1  ,3)  , 
+  NAE(NP)  ,DRAG(SP)  ,K(NP) 

10  CONTINUE 


RETURN 

END 


SUBROUTINE  I TAB 5 


C 

c- 

c* 

c 

C* 


810625  084830154 


PRINTS  PLATFORM 
DATA  FILE 


RECURRING  MOD/ INSTALLATION  LABOR  HOURS  BY  MODE  AND 


COMMON  /PRNTXX/  PRN'TXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  / AK IT/  AK IT ( 4 , 5  ) 

COMMON  /I  A/  I A 
COMMON  /M/  M 

COMMON  /MI  FIX/  MIFIXC3.5) 

REAL  MIFIX 

COMMON  /MIMH/  MIMHf4,3,5) 

REAL  MIMH 

COMMON  /MXNP/  MXNP 
COMMON  /NP/  NP 

1  FORMAT! 1H1 , 35X.56HINPUT  TABLE  5:  PLATFORM  RECURRING  MOD/ I NSTALLAT 
+  ION  DATA///57X, 1H*,13X, 45HM0D,/  INSTALLATION  LABOR  HOURS  BY  MODE  AND 
+  AREA,  12X,  1 H*/2X , 5HPLAT-  ,2X,  19H*FIXED  MOD/I  COST  *,7X,15HAKIT  F.QUI 
+P  COST , 7X , 1H* . 70 ( 1H-) , 1 H* / 2X , 4HF0RM , 3X , IH* , 17C1H-) , 1H* , 2X , 25 <T H- ) , 
+2X ,  1  H* ,  5X ,  12H**PROI)  MOD**  ,  5X  ,  1H*  ,  5X,  1 3H**FIEI.D  MOD**  ,  5X  ,  1 H*  ,6X  ,  1  3H 
+** DEPOT  MOD** , 4X , 1H*/2X , 5H INDEX , 2X , 5H*PROD , IX , SHF 1  ELD , IX , 5 H DEPOT , 1 
+X , 1H* , 2X , 5HANTNA , IX , 6HELCBOX , 1 X , 6HCNTLHD , IX , 5HCABLE , 2X , 5H*ANTN , 2X , 
+4HELBX , 2X , 4HCTI.H , 2X , 10HCBL  *  ANTN , 2X , 4HELBX , 2X .4HCTLH , 2X , 1 OHCBL  * 
+ANTN  ,  2X  ,  4HEI.BX  ,  2X  ,  4IICTIJ! ,  2X  ,  3HCBL,  IX  ,  1H*/2X  ,411  (NP )  ,  7X  ,  8H  (MIFIX  )*,  1 
+9X , 6H ( AK IT) , 44X , 6H ( MI MH ) / ) 

2  FORMAT  ( 3X , 1 3 , 2X , 7 i K6 . 0 , IX) , 1  2F6 . 0  ) 

3  FORMAT ( / / 2X , 25H*  IN  THOUSANDS  OF  DOLLARS) 

C 


c 

c 

C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 
C 

WRITE (  7,  1) 

DO  210  NI’=  1  ,  MXNP 

WRITE!  7,  2)  NP, (MIFIX(M.NP) ,M=1 ,3  I , ( AK I T( I  A ,  NT  ) . I A= 1 ,4  )  , 
+  ( (MIMH! I A ,M , NP ) , IA=1  ,4 ) ,M=1 ,3  ) 

210  CONTINUE 

WRITE!  7,  3) 

C 

RETURN 

END 


4 

\  ■ 


SUBROUTINE  ITAB6 


C 

C*  PRINTS  PLATFORM  DEPLOYMENT  AT  BASES 
C*  DATA  FILE 

C 


810625  084835801 


COMMON  /PRSTXX/  PR.VTXX 

INTEGER  PRNTXX 

COMMON  /FULLXX/  FULLXX 

INTEGER  FULLXX 

COMMON  /MXNP/  MXNP 

COMMON  /NP/  NP 

COMMON  /NPLT/  NPLT(5,10) 

REAL  NPLT 
COMMON  /NS/  NS 

1  FORMAT ( 1H1 , 8X , 58HINPUT  TABLE  6:  PLATFORM  DEPLOYMENT  AT  BASES  -  NP 
+LT(NP ,NS ) // IX , 5HPLAT-/ IX , 4HF0RM , 3X , 74HAVERAGE  NUMBER  OF  PLATFORMS 
+0F  GIVEN  TYPE  AT  EACH  BASE  WITHIN  GROUPS  BELOW/ IX, 5HINDEX , 2X , 122 ( 1 
+H- )/ IX ,4H(NP) , 16X , 1H1 , 5X , 1H2 , 5X , 1H3 , 5X , 1H4 , 5X, 1H5 , 5X , lHb , 5X , 1H7 , 5X 
+ , 1H8 , 5X , 1H9 ,4X , 2H10 ,4X , 2H1 1 ,4X , 2H12 ,4X , 2H13 ,4X , 2H14 ,4X , 2H15 , 4X , 2H 1 
+6/ ) 

2  FORMAT ( IX , 13 , 14X , 10 (F5 . 2 , IX) ) 

C 

C 

C 

C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 
C 

WRITE (  7,  1) 

DO  210  NP=1 ,MXNP 

WRITE!  7,  2)  NP, (NPLT(NP,NS) ,NS=1 , 10) 

210  CONTINUE 
C 


RETURN 

END 
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SUBROUTINE  ITAB7 


810625  084840218 


ATI'  MOD  LCR 

PRINTS  SUPPORT  EQUIPMENT  DATA 


COMMON  /PR.NTXX/  PR.NTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  /CSE/  CSE! 120) 

COMMON  /DATAS/  DATAS (120) 

INTEGER  DATAS 
COMMON  /I,/  L 
COMMON  /MSE/  MSE(120) 

REAL  MSE 

COMMON  / M X I . /  MXL 
COMMON  /SEDEV/  SEDHV (120) 

COMMON  /SEINO/  SE I  NO (1 20) 

INTEGER  SEINO 

COMMON  /SF.NOUN/  SENOUN  (  1  20 , 20  .) 

COMMON  ,/SENTM/  SENUMl 1 20 , 1 2  ) 

COMMON  /SETYPE/  SETYPE! 120) 

INTEGER  SETYPE 

1  FORMAT! 1H1 ,44X,:J8H INPUT  TABLE  7:  SUPPORT  EQUIPMENT  DATA/ // 58X , SHF 
+RACTION , 5X , 1 4HCuM . ON -S ITE ( 1  )  , 4X , 9HNTMBER  OF , 5X, 2HSE/3X.2HSE ,42X , 7H 
+SE  UNIT , 4X ,  ‘Mil N IT  COST , 4X , 14HC0M . PROCUR . (2 ) ,4X , 10HTECH  ORDER, 2X,6H 
+DEVMNT/2X,  511  INDEX, 4X, I5HSE  NOMENCLATURE , 7X , 11HSE  PART  NO. ,5X,4HCOS 
+T.4X, 1 1 HTO  MAINTAIN. 3X, 1 1HPECULI AR! 3) , 8X , 5HPAGES , 8X , 4HC0ST / 3X , 3H ( L 
+  ) ,9X,8H( SENOUN ) . 1 1X,7H(SENUM ) , 7X , 5H ( CSE) , 7X , 5H (MSE ) , 7X , 811  ( SETYPE ) , 
+9X.7H!  DATAS  )  ,  5X  ,  711  (  SEDF.Y  )  /  ) 

2  FORMAT! 3X , I  3 , 3X.20A1 . IX, 1 2A 1 . 4X , F7 . 0 , 7X , F5 . 3 , 10X , 12, 1 4X , I  3 , 4X , F8 . 0 

+  ) 


.ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 
! F ( PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0  »  RETURN 

WRITE!  7,  1) 

DO  210  I  XXX 1  =  I , MXL 
L=SE I  NO (  I XXXI  ! 

WRITE!  7,  2)  L,  I  SENOUN!  I,,  11  >,  I  1  =  1  .20  ).  (  SENUMl  L,  12)  ,  12=1  , 12 
+  USE!  I,  I  .MSE!  I.)  .SETYPE  (  El  ,  DATAS  ( I. ),  SEDEV  ( I. ) 

CONTINUE 
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c 


SUBROUTINE  ITAB8 


810625  084851139 


C*  ATU  NOD  LCR 

C*  PRINTS  ITEM  EQUIPMENT  DATA  * 

C 

COMMON  /  PR.NTXX/  PHNTXX 
INTEGER  PRNTXX 
COMMON  /FULI.XX/  I'ULLXX 
INTEGER  I'ULLXX 
COMMON  /GFE /  GFE(150) 

INTEGER  GFE 

COMMON  /I/  I 

COMMON  /I NO/  1  NO  1150) 

COMMON  / I  NOUN/  I  NOUN ( I  50 , 24 ) 

REAL  INOUN 

COMMON  / I NTEG/  ! NTEG (150) 

REAL  I  NTEG 

COMMON  /LFAC/  LFACU50) 

REAL  LFAC 

COMMON  / LRU/  LRU (250) 

COMMON  /MX  I /  MX  I 
COMMON  /NH1  /  NHKI50) 

COMMON  /PA/  PA (150) 

COMMON  /  PTNUM/  PTNUM  (  1  50  ,12) 

COMMON  /RM./  RM  (ISO) 

COMMON  /UP/  UP (150) 

COMMON  /WT/  WT (ISO) 

1  FORMAT  (  1 11 1  /48X  ,  361)  I NPUT  TABLE  8A  :  ITEM  EQUIPMENT  DATA) 

2  FORMAT ( 6 1 X  ,  11 II  (  CONT I  SUED  ) ) 

3  FORMAT (  /  <  62X  ,  bliLRU(  1  ) ,  3X  . 4HNEXT ,  5X  ,  3HGFE  ,  5X  ,  5HINTE-  ,  5X  ,  4H1TEM  ,  5X  ,  6 
+HREPA I R , 14X , 5HP I ECE/2X , AH  I TEM.4  7X , 5 II LEARN , 6X , 2 HO R , 4X , 6HH 1 GHER , 4X , 5 
+H I  NI)  I  -  ,  3X  ,  7 11GRAT I  ON  ,  3X  ,4 HUN  I T ,  4X  .  9HMATER I ALS  ,  4X  ,  4HITEM  ,  4X  ,  4HPART/  2 
+X, 5H INDEX ,9X, 12HNOMENCLATURE.9X. 1  IMPART  NUMBER , 6X , 4HRATE , 4X , 6HSRU ( 
+0 ) , 3X . 411 1 TEM ,  5X , 5HCAT0R , 5  X , 5  H I TENS , 4X , 4HC0ST, 5X , 6HFACT0R , 5X , 6HVE I G 
+HT , 2X , 5HC0UNT  /3X,  311(1 ) , 12X.71K  INOUN) , 14X, 7H< PTNUM) , 7X,6H(LFAC  )  , 3X 
+  , 511  ( LRU ) ,4X, 5Hi NH)  ) , 4X , 5H (GFE ) , 3X , 7H (  I NTEG) ,3X,4H(UP) ,6X,4H(RM  )  ,  7X 
+  ,  4  H  ( WT )  ,  4  X  ,  -4  H  (  P  A  )  /  ) 

4  FORMAT (4X, I 3.3X.24A1  , 1 X  ,  1 2A 1  ,6X , F4 . 2 , 6X , 1 2 , 6X , I  3 , 7X , I  2 , 7X , I  2 , 4X , F7 
+ . 0 , 6X ,  F4 . 3 , 5X  ,  Fb  ■  2 , 3X ,  F5 . 2  ) 

C 

C 

C 

C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I  F  (  PRNTXX  .  EQ  .  0  .  OR  .  FULI.XX  .  EQ  .  0 )  RETURN 


C 


I PAGE=40 
IFLAG=1 

DO  230  IXXX1=1 ,MXI 
I=INO( IXXX1 ) 

IF ( . NOT . ( I  PAGE . EQ . 40) )  GO  TO  220 
WRITE (  7,  1) 

IPAGE=1 

IF ( .NOT. (1FLAG.NE. 1))  GO  TO  210 
WRITE (  7,  2) 

210  CONTINUE 

WRITE!  7,  3) 

220  CONTINUE 

WRITE!  7,  4)  I , ! I NOUN (I,K1),K1=1,24),( PTNUM ( I , K2 ) , K2= 1 , 1 2 ) , 

+  LF AC ( I ) , LRU (I) , NH I ( I ) ,GFE( I ) , INTEG! I ) ,UP( I ) ,RM( I ) ,WT( I ) , PA( I ) 

IFLAG=0 
IPAGE=1FAGE+1 
230  CONTINUE 

RETURN 

END 
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SUBROUTINE  ITAB9A 


810625  084913094 

PRINTS  ITEM  MAINTENANCE  DATA 


COMMON  / PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  / BCMH/  BCMH  (150) 

COMMON  /BMH/  BMH I  150) 

COMMON  /COND/  C0NTX150) 

COMMON  / DMH /  DMIK150) 

COMMON  /FPR/  FPR (  150) 

COMMON  /I/  I 
COMMON  /l NO/  I  NO (150) 

COMMON  / I PCF/  ! PCFf 150) 

REAL  I PCF 

COMMON  /MTBM 1 /  MTBM 1(150,4) 

REAL  MTBM I 
COMMON  /MX I /  MX  I 
COMMON  /.NRTS/  NETS (150) 

REAL  NRTS 

COMMON  /RIP/  RIF- (150) 

COMMON  /RE  R 1 , (  1 5 0 ) 

INTEGER  KI, 

COMMON  /RMH/  RMH: 150) 

COMMON  /RTS/  RTS (150) 

1  FORMAT!  1H1  /47X, 3911  INPUT  TABLE  9A :  ITEM  MAINTENANCE  DATA) 

2  FORMAT  I h 1 X , 1 1H (CONTINUED)  ! 

3  FORMAT!  /  /  58 X  ,  8 II FK ACT  I  ON  ,  1  OX  ,  1911  ,  IX ,  7HFA  3  LURE  ,  1 X 

+  .4HBASK,  IX.2HLV  f>X  ,  1  H*  ,  5X  ,  34HMKAN  TIME  BETWEEN  MAI  NT.  INCIDENTS,  5X 
+  .6H--FALSE,  lX.hllFAI  I.URES,  1X.8HC0ST  PER  ,  2X  ,  1 9HFRACT1  ON  FAILURES  ,611 
+REMOVE ,2X , 5HBENCH , 3X , 7HBASE  LV , IX  ,  5HDEP0T/ IX, 6H ITEM  * , 1X,43(  HI- 1 , 5 
+H"'PULL ,  2X  .  SHhEPA  1  RED  ,  1 X  ,  fill  I  N  PLACE,  2X.18H  REPAIRED  AT  ,  1X.7HR 
+EPLACF. ,  IX,  5  [{CHECK  ,  ;X  ,  olIKF.PA  IR  ,  2X  ,  bllREPAI  R  ,  1 X  ,  4HR  .  L  .  /]  X  ,  511 1  NDEX  ,  13)1 

A  f  H  -F 1  CUTER-- ,  1  OHA  I K  -CARGO*  ,  1  1 HGKM) -FIXED* ,  1  2HGRND-M0B I  LE*  .  4HRATE  , 
+2X.8111N  PLACE  .  2X  .  bllKEPA  l  K  ,  2X  .  20H  BASE  DEPOT  COND  ,  7HMAN  HRS,  IX, 
+  7HMAN  HRS.1X.TIMAN  HRS , 1 X , nHMAN  HR , IX , 4HC0DE/2X , 3H < I ) , 3X , 8H ( MTBM I  1 
+  )  ,  3X,  811  (MTBM  I  2  )  .  3X  ,  811  (  MTBM  I  3  )  ,  3X  ,  8H  (  MTBM  1 4  )  ,  3X,  511  (FPR  )  ,  2  X  ,  5  H  ( R  I  P  )  , 
+4X.hH(  I  PCF  i  ,  2X.  2011 1  RTS  )  (NRTS)  (COND)  ,2X,  51KRMH  )  ,  2X,bH(  BCMH  ) ,  3X,  5 
+11  (  BMH  )  ,  3X,  511  r  DMH  I  ,  1  X  ,4H  (  RL  )  /  ) 

4  FORMAT f IX, 13, 3X.F9 . 0.3( 2X.F9.0 , , 3X , F4 . 3 , 4X , F4 . 2 , 3X , Fb . 2 , 3X , F 5 . 3 . 2X 
+  , F 5 . 3 , 2X , F  5 . 3.2X, 3i F5 . 2 , 3X ) , F5 . 2 , 1 X , 1 4 ) 


■ft 
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C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PKNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 
C 

I PAGE=40 
IFLAG=1 

DO  230  I XXX 1  =  1, MX I 
I  =  I  NO ( I XXXI ) 

I F (  .NOT. (I PAGE. EQ. 40))  GO  TO  220 
WRITE!  7,  1) 

I PAGE=1 

IF( .NOT. (IFLAG.NE. 1))  GO  TO  210 
WRITE!  7,  2) 

210  CONTINUE 

WRITE!  7,  3) 

220  CONTINUE 

WRITE!  7,  4)  I , (MTBMI (I ,K1) ,K1  =  1 ,4) ,FPR(I ) , R I P C I ) , IPCF ( T  )  , 

+  RTS ( I ) , NRTS ( I ) , COND ( I ) , RMH ( I ) , BCMH ( 1 ) , BMH ( I ) , DMH ( I ) , RL  f I ) 
1 FLAG=0 
I PAGE=I PAGE+1 
230  CONTINUE 
C 

RETURN 

END 
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i 


SUBROUTINE  i  TAB  9B 


ATI'  MOD  LCR 

PRINTS  ITEM  REPAIR  HOURS .TECH  ORDER  AND  TR .  DATA 


810625  08492 1438 


COMMON  f’KNTXX/  PKNTXX 

INTEGER  I'kNTXX 

COMMON  /  FULI.XX  FULI.XX 

INTEGER  FI  I, XXX 

COMMON  /FATAH  DATAB  ■;  1  50) 

INTEGER  DATAB 

COMMON  /DATA!)  DA  FAD  (  ISO) 

!  NTECF.K  LATAD 
COMMON  T .  I 
COMMON  /INC;/  I  NO  i  150) 

COMMON  ; MX i  MX  I 

COMMON  / T 1  ME  1  TIME! (1501 

INTEGER  TIME! 

COMMON  /I'CTilEV  '  UOTDEV  i  I  50  ) 

1  FORMAT!  llil  5X.431UNPUT  TABLE  9B:  TECHNICAL  ORDERS,  TRAINING. 22X, 1 
*•9  If  AND  UCT  FLAT.  LuPMENTi 

2  FORMAT!  2BX  ,  1  !  i! ;  FONT !  SUED  )  ) 

3  FORMAT!/  |5X  , .  EilNl  TIBER  OF  TECH.  NO.  OF  HOURS  ,  5X  .  3HUCT  •  5X  ,  411 ITE 

+M.6X. BOHDATA  'CAGES  FOR  FOR  TYPE  1  ,  oX  ,  oHDEVMNT.  5X  ,  5H  I  NDEX  ,  5X  ,  5 

+HDEPOT ,  5X  ,  4HBASF  ,  oX  ,  SHTkA  I  N  I  NG  ,  OX  ,  4HC0ST/oX  ,  3H  (  I  )  ,  5X  ,  loll  i  DATA!) )  I 


+ DATAB ) , 3X 
*  FORMAT (hX 


Till  E 1  ME  1  )  ,  8X  ,  Sli  (  UCTDEV 1  /  1 

,13,  :x. ; 3 ,ox, ;  1 3 ,9x, it.o > 


...ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 
1  K  ,  I’KNTXX  .  EQ  .  •;  .  OK  .  FULi.XX  .  KQ  .  0  )  RETURN 

1 1’  AC >15=4 ( > 

I  I'LAG=  1 

IK)  2'M'  1 XXX  1  =  1,  MX  I 
1  =  1  NO  (  I  XXXI  ’. 

I  Fl  .  NOT  .  (  !  PAGE  .  F.Q  .  40  !  i  GO  TO  220 

wk  I  ti;  (  :,  ii 
I PAGE= 1 

IF!  .NOT.  (  IFI.AG.NE.  1  )  )  Gl  TO  210 
WHITE;  2) 

10  CONTINUE 

W  K I TE I  7 .  3  ) 

TO  CONTINUE 


I 


WRITE  (  7,  4)  I  ,  DATAD  ( I .)  ,  DATAB  f  I )  ,  T I  ME  1(1),  I'CTDEV  (  I  ) 
IFLAG=0 
I  I’AGE=I  PAGE+  1 
2 30  CONTINUE 
C 

RETURN 

END 


St'BROl'T  I NK  ITB10A 


C  810625  084928169 

ATI'  Mi  (!)  l.OR 

C*  PRINTS  ITEM.-  SUPPORT  F.Ql'IPMEXT  CROSS-REFERENCE 
C 

COMMON  .  M'-’N'TXX;  PRNTXX 
INTEGER  PRNTXX 
COMMON  TTLLXX  FULLXX 
INTEGER  FULLXX 
CiiMMON  A,  All  50, -*,3.) 

INTEGER  A 
COMMON  /I'  , 

COMMON  ISO,  ; V  •  : 5  !  j 
COMMON  "I  KM  IN.-  1  kM  I  N  f  15(2,4) 

COMMON  I  KMT  I RMT 
COMMON  MX i  MX  I 
COMMON  MX  I  KMT  MX  I RMT 
COMMON  N.JA  VIA;  150,4) 

COMMON  QSA/  QSAi 150,4,3) 

1  FORMAT i  1 H I  '  23X . 6nH I NITT  TABLE  1 OA :  ITEM/SE  CROSS  REFERENCE  DATA  - 
+ DEPOT  LEVEE  REPAIR) 

2  FORMAT i 4 1 X . I  I H i FONT  I  NEED  i  ) 

3  FORMAT i  .  '  :X  .  '.HNfMB  .  ■TX.5HOF  SE  ,  2X  ,  2HSF. ,  1  7  (  4X  ,  2HSE  ) .  IX  , AH  ITEM  ,  2X  , 4H 
+TYPE  ,  9,  IX, BHiNDEX, IX . 5HQUAN- !  /  IX  ,  5H  INDEX ,  IX ,  5HREQR1) ,  IX  ,  3HN0  .  ,2X,4 
+HTITY  ,  6  i  3X  ,  3!i  V  ' .  ,  2X.4HTITV  i  2X,  3H(  I  )  ,2X,  SHl.NJA)  ,  9  (  2X  .  3H  (  A  )  ,2X,5Hi 
+06  A  !  )  i 

4  FORMAT (  2 X  ,  I  3  ,  NX  ,  I  3 , 28  (  9  (  2X  ,  14 , 2X  ,  F-* .  0  )  /  )  ) 


C 

C 

C . ONLY  PRINT  I  hi S  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

1  Fi  PRNTXX  .  Ei, .  I  .  OR  .  FI  LLXX  .  EQ  .  0  )  RETURN 
C 

I FLAG=1 
I  PAGE  =  4i  ■ 

O'.  240  I  XXX  1  =  1,  MX  I 

I  =  I  NO :  1XXX1  ) 

MO.  N  vr  .  i  I  PAGE . EQ . 40  )  i  00  TO  220 
W  K I TE !  5  ,  1  ) 

' PAGK=1 

IF!  .N'T.  (  i  FLAG  .  NE  .  1  )  i  Go  TO  210 
WRITE!  2) 

210  CONTINUE 

W  k  1 2  V.  i  .  ,  >  1 

I PAGE= 1 


8h 


220  CONTINUE 

DO  230  IRMT=1 ,MXIRMT 

IF ( . NOT. ( IRMIN( I , IRMT) . EQ . 1 ) )  GO  TO  230 

WRITE (  7,  4)  I ,NJA( I , IRMT) , (A( I , IRMT.K2) ,QSA( I , IRMT ,K2 ) ,K2=1 , 
+  3) 

230  CONTINUE 
IFLAG=0 
IPAGE=IPAGE+1 
240  CONTINUE 

RETURN- 

END 
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o  o 


SUBROUTINE  ITB10B 


.u.  .* — j.  .u  ju 


810625  084932651 

**************************************** 


C*  ATU  MOD  LCR  * 

C*  PRINTS  ITEM/SUPPORT  EQUIPMENT  CROSS-REFERENCE  * 

C*********************************************************************** 

c 

COMMON  /PRN'TXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  /A/  A( 150,4, 3) 

INTEGER  A 

COMMON  /I/  I 

COMMON  /I NO/  I NO (150) 

COMMON  / IRMIN/  IRMIN( 150,4) 

COMMON  / I RMT /  IRMT 
COMMON  / MX I /  MX I 
COMMON  /MX I RMT/  MX I RMT 
COMMON  /NJA/  NJA( 150,4) 

COMMON  /QSA/  QSA(150,4,3) 

1  FORMAT ( 1 H 1 / 2 3X , 68H I NPUT  TABLE  10B:  ITEM/SE  CROSS  REFERENCE  DATA  - 
+BASE  LEVEL,  PSE  ONLY) 

2  F0RMAT(41X, 1 lH(CONTINUED) ) 

3  FORMAT C / / 7 X , 5HNUMB . / 7X , 5HOF  SE , 2X , 2HSE , 17 (4X, 2HSE) / IX .4HITEM , 2X ,4H 
+TYPE ,  9 ( IX , 5H INDEX , IX , 5HQUAN- ) / IX , 5HINDEX , IX , 5HREQRD , 2X , 3HNO . , 2X , 4 
+HT ITY , 8 ( 3X , 3  HNO . ,2X,4HTITY)/2X,3H(I ) ,2X,5H(NJA) ,  9(2X,3H(A) ,2X,5H( 
+QSA) )/) 

4  FORMAT (2X , 13 , 3X , 1 3 , 28 (9 (2X , 14 , 2X.F4 . 0)/ ) ) 

C 

C 

C 

C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 
C 

IFLAG=1 

IPAGE=40 

DO  240  IXXX1=1 ,MXI 
I=INO( IXXX1 ) 

I F ( . NOT . ( I  PAGE . EQ . 40 ) )  GO  TO  220 
WRITE (  7,  1) 

IPAGE=1 

IF ( .NOT. (IFLAG.NE. 1))  GO  TO  210 
WRITE (  7,  2) 

210  CONTINUE 

WRITE (  7,  3) 

IPAGE=1 
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220  CONTINUE 

DO  230  IRMT=1 .MXIRMT 

I F ( . NOT .  ( IRMIN ( I ,  IRMT) .  F.Q .  2) )  GO  TO  230 

WRITE (  7,  4)  I ,NJA( I , IRMT) , (A( I , IRMT.K2 ) ,QSA( I , IRMT ,K2 ) , K 
+  3) 

230  CONTINUE 
IFLAG=0 
IPAGE=IPAGE+1 
240  CONTINUE 

RETURN 

END 


o  n  o  n  no 


SUBROUTINE  ITB10C 


C 

C* 

C* 

C* 


810625  084939578 

■ '*  iV  * ‘r  i**  tV  Vr  iV  " V  iV  "V  Vr  *V  tV  VrVrVr  Vr  Vr  Vr  Vf  *^r  Vr  ‘V  V*  fr  VrVf  VfVf  *V  V?  Vf  A*'?  *  VVf 


ATU  MOD  LCR  * 

PRINTS  ITEM/ SUPPORT  EQUIPMENT  CROSS-REFERENCE  * 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULEXX 
INTEGER  FULLXX 
COMMON  /A/  A) 150,4,3) 

INTEGER  A 

COMMON  /I/  I 

COMMON  /I  NO/  I  NO (150) 

COMMON  / IRMIN/  IRMIN( 150,4) 

COMMON  / I RMT /  IRMT 
COMMON  / MX  I /  MX  I 
COMMON  /MX I RMT/  MX I RMT 
COMMON  /NJA/  NJA( 150,4) 

COMMON  /QSA/  QSA( 150,4,3) 

1  FORMAT ( 1H1/23X.63H INPUT  TABLE  10C:  ITEM/SE  CROSS  REFERENCE  DATA  - 
+BASE  LEVEL,  MBS) 

2  FORMAT ( 4 1 X , 1 1 H ( CONT I  SUED ) ) 

3  FORMAT f / / 7 X , 5HNUMB . / 7 X , 5H0F  SE.2X.PHSE, 17(4X,2HSE)/1X,4HITEM,2X,4H 
♦TYPE ,  9 ( 1 X , 5 H I NDEX , IX , 5HQUAN- ) / IX , 5HINDEX , IX , 5HREQRD , 2X , 3HN0 . , 2X , 4 
+HTITY , 8 ( 3X , 3HN0 .  , 2X , 4HTITY )/2X , 3H( I ) , 2X , 5H(NJA) ,  9(2X,3H(A) ,2X,5H( 
+QSA) ) / t 

4  FORMAT (2X, 13, 3X, I3,28(9(2X, I4,2X,F4.0)/)) 


_ ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PRNTXX , EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 

IFLAG=1 

IPAGE=40 

DO  240  I XXX 1-1 , MX I 
I = I NO ( I XXX 1 ) 

I F ( . NOT . ( I  PAGE . EQ . 40 ) )  GO  TO  220 
WRITE)  7.  1) 

IPAGE=1 

IF ( .NOT. (IFLAG.NE. 1))  GO  TO  210 
WRITE (  7,  2) 

210  CONTINUE 

WRITE)  7,  3) 

I PAGE= 1 


90 


1 


i 

A 


220  CONTINUE 

DO  230  IRMT=1 .MXIRMT 

IF(.N0T.(IRMIN(I,IRMT).EQ.3))  GO  TO  230 

WRITE(  7,  4)  I ,NJA(I , IRMT) , (A(I , IRMT.K2) ,QSA(I , IRMT.K2) ,K2-1 , 
+  3) 

230  CONTINUE 
IFLAG=0 
IPAGE=IPAGE+1 
240  CONTINUE 


RETURN 

END 


no  onnnon 


SUBROUTINE  ITB10D 


810625  084943099 

j***-  j#*1'  .1.  .t.  ^  »*»  ■'Uj*  j*  j-  »*.,  >*«  Vr  Vr  Vr  V?  *Wr^V  vV  < V  V*  Vr  * V  i*r  * V  * V  Vr  «V  Vr  Vr^V~V^V  *Wc  iV  -*-  ^V^V*V 

*  ATU  MOD  LCR  * 

>-  PRINTS  ITEM/SUPPORT  EQUIPMENT  CROSS-REFERENCE  * 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  /A/  A( 150 ,4 , 3) 

INTEGER  A 

COMMON  /I/  I 

COMMON  /I NO/  I NO (150) 

COMMON  / IRMIN/  IRMIN(150,4) 

COMMON  / I RMT /  IRMT 
COMMON  / MX I /  MX I 
COMMON'  /MX I  RMT/  MX  I  RMT 
COMMON  /.NJA/  NJA(  150,4) 

COMMON  / QSA/  qSA( 150,4 ,3) 

1  F ORMAT (1H1/23X,63HI NPUT  TABLE  10D:  ITEM/SE  CROSS  REFERENCE  DATA  - 
+BASE  LEVEL,  UCT) 

2  FORMAT (4 IX, 1 1H (CONTINUED) ) 

3  FORMAT (//7X, 5HNUMB . / 7X , 5H0F  SE , 2X , 2HSE , 1 7 ( 4X , 2HSE ) / IX , 4H ITEM , 2X , 4H 
+TYPE ,  9 ( IX , 5H INDEX , IX , 5HQUAN- ) / IX , 5H INDEX , IX , 5HREQRD , 2X , 3HNO . , 2X , 4 
+HTITY , 8 ( 3X , 3HNO . , 2X .4HTITY) /2X , 3H( I ) ,2X,5H(NJA) ,  9(2X,3H(A) ,2X,5H( 
+QSA ))/) 

4  FORMAT (2X, 13 ,3X, 13 ,28(9(2X, 14 , 2X , F4 . 0)/ ) ) 


C 

C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PRNTXX . EQ . 0 . OR . FU LLXX . EQ . 0 )  RETURN 
C 

IFLAG=1 

IPAGE=40 

DO  240  I XXX 1=1 ,MXI 
1  =  1 NO ( I XXX 1  ) 

IF ( . NOT . ( I PAGE  .  EQ  .  40)  )  GO  TO  220 
WRITE!  7,  1) 

I PAGE=1 

I F ( . NOT .(IF LAG . NE . 1 ) )  GO  TO  210 
WRITE (  7,  2) 

210  CONTINUE 

WRITE!  7,  3) 

I PAGE=1 
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220  CONTINUE 

DO  230  IRMT=1 .MXIRMT 

IF( . NOT. ( IRMIN( I , IRMT) . EQ . 4) )  GO  TO  230 

WRITE (  7,  4)  I,NJA(I,IRMT),(A(I,IRMT,K2),QSA(I,IRMT,K2),K2=1, 
+  3) 

230  CONTINUE 
IFLAG=0 
IPAGE=IPAGE+1 
240  CONTINUE 

RETURN- 

END 
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o  n  o  o 


SUBROUTINE  ITAB11 


C 

C*  PRINTS  ITEM  CONFIGURATIONS  ON  PLATFORMS  DATA  FILE 
C 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  /I/  I 
COMMON  /I NO/  INOC150) 

COMMON  /MXI /  MX I 

COMMON  /NITEM/  NITEM(150,5) 

REAL  NITEM 


810625  084945134 


.-U.'-.'-y- J- 


COMMON  /NP/  NP 

1  FORMAT( 1H1/3X.65H INPUT  TABLE  11A:  ITEM  CONFIGURATIONS  ON  PLA1 FORM 
+S  -  NITEM(I.NP)  ) 

2  FORMAT(29X,UH (CONTINUED)) 

3  FORMAT (//2X.4HITEM, 1 5  X , 4  7  HA VE .  NUMBER  OF  ITEMS  INSTALLED  ON  PLATFO 
+RM  TYPE/2X , 5HINDEX , 3X,69(lH-)/3X,3H(I),  12X , 1H1 , 5X , 1H2 , 5X , 1H3 , 5X , 1 
+H4 ,5X, 1H5 ,5X, 1H6 ,5X, 1H7.5X, 1H8,5X, 1H9,5X,2H10/) 

4  FORMAT (3X ,I3,9X,10(F5.2,1X)) 


_ ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 

IFLAG=1 

IPAGE=40 

DO  230  I XXX 1=1 ,MXI 
I = I NO ( I XXXI) 

IF ( . NOT. (I PAGE . EQ . 40) )  GO  TO  220 
WRITE (  7,  1) 

IPAGE=1 

IF( . NOT. ( IFLAG . NE . 1 ) )  GO  TO  210 
WRITE (  7,  2) 

210  CONTINUE 

WRITE (  7,  3) 

220  CONTINUE 

WRITE(  7,  4)  I , (NITEM(I ,NP) ,NP=1 ,5) 

IFLAG=0 
IPAGE=IPAGE+1 
230  CONTINUE 

RETURN 

END 
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o  o  o 


SUBROUTINE  ZFAIL 


Jl.  JU  A  A  J.  JL  JU  .I.  A  -U  -»■ 


COMPUTES  AUXILIARY  VARIABLE  FAIL(I,NS) 


810625  084947936 

.  J.  — >-  .i.Ju 


COMMON  /APFH/  APFH(5,3) 

COMMON  /FAIL/  FAIL(150,10) 

COMMON  /I/  I 
COMMON  /I NO/  I NO (150) 

COMMON  /KFAC/  KFAC(4) 

REAL  KFAC 
COMMON  /LE/  LE(5) 

COMMON  /LO/  L0(10) 

COMMON  /MTBMI /  MTBMI(150,4) 

REAL  MTBMI 
COMMON  /MXI /  MX I 
COMMON  /MXNP/  MXNP 
COMMON  /MXNS/  MXNS 
COMMON  /NITEM/  NITEM(150,5) 

REAL  NITEM 

COMMON  /NP/  NP 

COMMON  /NPLT/  NPLT(5,10) 

REAL  NPLT 
COMMON  /NS/  NS 
COMMON  /RIP/  RIP( 150) 

COMMON  /TFAC/  TFAC(5) 

COMMON  /XFR/  XFR 
C 

c 

DO  230  NS=1 , MXNS 
DO  220  IXXX2=1 ,MXI 
I = I N 0 ( IXXX2) 

DO  210  NP=1 ,MXNP 

IF t .NOT. (NITEM(I.NP) .GT. .000001))  GOTO  210 
FL=N ITEM ( I , NP )* ( 1 . -R I P ( I ) ) *NPLT (NP , NS )*APFH (NP , LO ( NS ) ) * 
+  TFAC  (NP )  •••KFAC  (  LE  ( NP )  )*XFR/MTBMI  ( I  ,  LE  ( NP )  ) 

FAIL(I ,NS)=FAIL(I ,NS)+FL 
210  CONTINUE 
220  CONTINUE 
230  CONTINUE 
C 

RETURN 

END 
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non 


SUBROUTINE  ZNFB 

c  810625  084953158 

c***,v*********************************************************Vf********* 

C*  COMPUTES  PIPELINE  SPARES  NFB(I.NS)  AT  BASE  NS  * 

*  AND  NFD(  I)  AT  THE  DEPOT  ^  _ _  ^  ^  . . , ,  ,  „ ,  ,,.J. 

COMMON  /B/  B 
INTEGER  B 

COMMON  /BRCT/  BRCT 
COMMON  / BTYPE/  BTYPE(IO) 

INTEGER  BTYPE 

COMMON  /COND/  COND(150) 

COMMON  /CRCT/  CRCT 
COMMON  /DAD/  DAD 
COMMON  / DRCT /  DRCT(3) 

COMMON  /FAIL/  FAIL (150, 10) 

COMMON  /FPR/  FPR(150) 

COMMON  /I/  1 
COMMON  /I NO/  I  NO (150) 

COMMON  /LO/  L0(10) 

COMMON  /LRU/  LRU (150) 

COMMON  /MX I /  MX I 
COMMON  /MXNS/  MXNS 
COMMON  /NBC/  NBC(IO) 

REAL  NBC 

COMMON  /NFB/  NFB(150,10) 

REAL  NFB 

COMMON  /NFD/  NFD(150) 

REAL  NFD 

COMMON  /NHB/  NHB(IO) 

COMMON  / N H I /  NHI1150) 

COMMON  /NRTS/  NRTS(150) 

REAL  NRTS 
COMMON  /NS/  NS 
COMMON  /OST/  0ST(3) 

COMMON  /OSTC/  OSTC 
COMMON  /RTS/  RTS (150) 

COMMON  /TNB/  TNB(IO) 

COMMON  /XFPR/  XFPR 
REAL  NHNRT 
REAL  NHRT 


DO  270  IXXX1=1 ,MXI 
I=INO( I XXXI ) 
XF=XFPR'"FPR  ( I ) 


to  ro 


NHRT=0 . 

NHNRT=0 . 

IF l .NOT. (NHI (1 ) .NE.O) )  GO  TO  210 
NHRT=RTS(NHI(I)) 

NHNRT=XRTS(NH1(I)) 

210  CONTINUE 

DO  2e>0  NS=1 ,MXNS 
SFL=0 . 

I F ( .NOT. (BTYPE(NS) .EQ.3))  GO  TO  220 
C 

C . COMPUTE  SATELLITE  BASE  FAILURES 

NFB  ( I  , NS )  =FA I L ( 1  , NS ) '-FLOAT ( LRU ( I )  ) * (  1 .  +XF ) *0 STC 
220  CONTINUE 

IF( .NOT. (BTYPE(NS) .EQ.2))  GO  TO  240 
C 

C . COMPUTE  BASE  FAILURES  FROM  SATELLITES 

TEMO 1=0 . 

DO  230  B= 1 , MXNS 

IF ( .NOT. (NHB(B) .EQ.NS))  GO  TO  230 
TEMO 1=TEM0 1 +FAI L( I , B )*NBC ( B ) 

230  CONTINUE 

SFL=TEMO 1 

SFL=SFL* (FLOAT ( LRU (I) )+NHRT)* 1 (RTS ( I )+XF)*CRCT+(NRTS (11+ 

+  CONDI  I n-(OST 1L0INS) )+U (XF)*CRCT) ) 

240  CONTINUE 

IF( .NOT. ( BTYPE(NS) . LT. 31 1  GO  TO  250 
NFB ( I , NS )=FAIL( 1 , NS  1* (FLOAT! LRU ( I ) ) +NHRT 1 * ( ( RTS ( I) +XF ) * B  RCT+ 
+  (NRTS  ( I  1+COND  ( I }  V-OST (  LOIN’S ))  )+SFL 

250  CONTINUE 

NFD ( I ) =NFD ( Il+FA I L ( I , NS ) *TNB ( NS  V-  ( (FLOAT ( LRU ( I ) ) +NHRT ) -NRTS ( 1 ) 
+  *DRCT (  LO  ( NS  )  I+NHNRT-  ( 1 .  -CON'D  ( 1 )  )'-DAD ) 

60  CONTINUE 
70  CONTINUE 

RETURN 
END 


97 


J* 


SUBROUTINE  ZERHB 


C  810625  085002830 

C*  COMPETES  ITEM  INTERMEDIATE  REPAIR  HOURS  PER  MONTH, 

C*  ERHBI ( I ,NS )  AT  BASE  NS  AND  ERHD(I)  AT  THE  DEPOT. 

C 

COMMON  /B,  B 
INTEGER  B 

COMMON  / BCMH/  BCMH( 150) 

COMMON  /BMP,'  BMP 
COMMON  /BMH/  BMHC150) 

COMMON  / BTYPE/  BTYPE(IO) 

INTEGER  BTYPE 
COMMON  / CONI) '  CONDI  ISO) 

COMMON  , DMP  '  DMF 
COMMON  /DMH/  DMH C 150 ) 

COMMON  /EBCB I /  EBCBI ( 1 50 , 10) 

COMMON  /ERHBI/  ERHBI ( 150 , 10) 

COMMON  ,  ERHD,  ERH1) (150) 

COMMON  ,'ERTBI  /  ERTBI ( 150 , 10) 

COMMON  /FAIL/  FAILC,  150 , 10) 

COMMON  ,/FPR/  FPR (150) 

COMMON  !\l  I 
COMMON  /I NO/  1  NO (150) 

COMMON  ,  LRU/  LRU150) 

COMMON  / MX I /  MX  I 
COMMON  /MXNS,'  MXNS 
COMMON  /NBC/  NBC (10) 

REAL  NBC 

COMMON  ■  NHB/  NHB(IO) 

COMMON  /  Nil  I  /  NH I  C 150) 

COMMON  NRTS  NRTS (150) 

REAL  NRTS 
COMMON  /NS/  NS 
COMMON  /RTS/  RTS (1501 
COMMON  ,'TNB/  TNB(IO) 

COMMON  XFPK  XFPR 
REAL  NHNRT 
REAL  NHRT 
C 
C 

DO  2hO  I XXX 1  =  1, MX  I 
1=1 NO ( 1XXN1 ) 

NHRT=0 . 

NHNRT=0 . 

I F( .NOT. (NHI(I).NE.O))  GO  TO  210 
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ro  ro 


NHRT=RTS(NHI(1)) 

NHNRT=NRTS (NH1 ( I ) ) 

210  CONTINUE 

XF=XFPR"'FPR(  I ) 

DO  250  NS-l.MXNS 
SFL1=0 . 

SFL2=0 . 

ERHBICI , NS )=0 
EBCBI ( I ,NS )=0 . 

ERTB 1(1, NS ) =0 . 

IFC .NOT. (BTYPE(NS) .EQ.2) )  GO  TO  220 
C 

C . INCLUDE  REPAIRS  FROM  SATELLITE  BASES 

TEMO 1=0 . 

DO  220  B= 1 , MXNS 

IF( .NOT. (NHB(B) .EQ.NS  )  )  GO  TO  220 
TEMO 1=TEM0 1+FAI L( I ,Bl*NBC(B) 

220  CONTINUE 

SFL1=TEM01 

SFL2=SFL1*(FL0AT(LRU(I)  )+NHRT)*U(l .  -CON'D  ( I )  )*RTS( I  )*BMH(  I  .)* 
+  BMF 

SFL1=SFLI*(FL0ATCLRU(I )  1+NHRT  )’•'((  RTS  (I  )+SRTS(l  )+X'F+U(X'F)* 

+  CON'D  ( I )  BCMH  ( I) )  *BMF 

230  CONTINUE 

IFC -NOT. (BTYPE(NS) . LT.3) 1  GO  TO  240 

EBCBI  ( I  ,NS  )=FAIL(  I  ,NS )'•'•' (FLOAT (LRU ( I )  )+NHRT )•'•'(  ( 1 .  +XF)*BCMH (.  I ) 
+  P'BMF+SFLl 

ERTB I ( I , NS ) =FAI L( I , NS )* (FLOAT ( LRU ( I ) ) +NHRT ) *U ( 1 . -COND ( I ) )* 

+  RTS (I )*BMH ( I )*BMF+SFL2 

ERHB I  (I  ,  NS .)  =EBCB  H  I ,  NS  )  +ERTB I  ( I  ,  NS ) 

240  CONTINUE 

ERHDf I )=ERHD( I J+FAI L( I ,NS 1 *TNB ( NS ) * ( ( FLO AT ( LRU ( I ) ) +NHRT ) * 

+  NRTS ( I )+NHNRT* ( 1 . -COND ( I ) ) )*DMH ( I )*DMF 

50  CONTINUE  * 

60  CONTINUE 

RETURN- 
END 
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SUBROUTINE  ZERHSE 


C 

C* 

c* 

c* 

C* 

c* 

c* 

c 


ATU  MOD  SLR  -  21  MAY  80 

CALCULATES  EXPECTED  MANHOURS  PER  MONTH 

THAT  SUPPORT  EQUIP.  TYPE  L  IS  UTILIZED, 

ERHAB ( L , NS)  AT  BASE  NS  AND  ERHAD(L)  AT  THE  DEPOT. 


810625  085010420 

_ 1-.'.  J.  .'.J. 


COMMON  /A/  A( 150,4,3) 

INTEGER  A 

COMMON  /BSP/  BSP (101 
INTEGER  BSP 

COMMON  /EBCBI/  EBCB I ( 1 50 , 10 1 
COMMON  /ERHAB/  ERHAB ( 120 , 1 0 1 
COMMON  /F.RHAI)/  ERHAIX  120; 

COMMON  /ERHD/  ERHD( 150) 

COMMON  /ERTBI/  F.RTBI  (  150 , 10) 
COMMON  /I/  I 
COMMON  /I NO/  INO ( 150) 

COMMON  / IRMIN/  I RM I N ( 150,4) 

COMMON  / I RMT /  I RMT 
COMMON  /L  L 
COMMON  /  IT/  IT 
COMMON  / MX I /  MX  I 
COMMON  /MX I RMT/  MX  I RMT 
COMMON  /MX  IT  /  MX  IT 
COMMON  /MXNS/  MXNS 
COMMON  /NJA/  NJA( 150,4) 

COMMON  /NRM/  NRM (150) 

COMMON  /NS/  NS 
COMMON  /QSA/  QSA( 150,4,3) 

COMMON  / RM I /  RMI (150,10) 

INTEGER  RMI 
INTEGER  FLAG 
INTEGER  FLAG1 
INTEGER  FLAG 2 
INTEGER  FLAG 3 
INTEGER  SECODE 
C 
C 

DO  410  IXXX1=1 ,MXI 
I = I N 0 ( IXXX1) 

NXXX 1=NRM ( I ) 

IF ( .NOT. (NXXX1 .NE.O))  GO  TO  400 
DO  280  NS=1 ,MXNS 
RMI ( I ,NS)=BSP(NS)+1 


FLAG 1=0 
FLAG2=0 

DO  240  IRMT=1 .MXIRMT 

IF ( . NOT . (IRMT . LE . NXXX1 ) )  GO  TO  250 
I F ( . NOT. ( IRMIN( I , IRMT) . EQ . RMI ( I ,NS) ) )  GO  TO  210 
FLAG1=IRMT 

210  CONTINUE 

I F ( . NOT . ( IRMIN( I , IRMT) . EQ . 2) )  GO  TO  220 
FLAG2=IRMT 
220  CONTINUE 

IF(. NOT. (IRMIN(I, IRMT). EQ.l))  GO  TO  230 
FLAG3=IRMT 
230  CONTINUE 

240  CONTINUE 

250  CONTINUE 

FLnG=FLAGl 

IF ( . NOT. (FLAG I . EQ . 0) )  GO  TO  270 
FLAG-FLAG2 
RMI ( I ,NS)=2 

IF( . NOT . (FLAG2 . EQ . 0) )  GO  TO  260 
FLAG=FLAG3 
RMI (I ,NS)=1 
260  CONTINUE 

270  CONTINUE 

280  CONTINUE 

DO  380  IRMT=1, MXIRMT 

IF( .NOT. (IRMT. LE.NXXX1))  GO  TO  390 
NXXX2=NJA(I , IRMT) 

IF ( . NOT . (NXXX2 . NE . 0 ) )  GO  TO  370 
DO  350  LT=1 ,MXLT 

IF ( .NOT. (LT.LE.NXXX2))  GO  TO  360 
L=A (1,1 RMT , LT ) 

IF(. NOT. (IRMIN(I, IRMT). EQ.l))  GO  TO  300 

SECODE=INT(QSA(I,IRMT,LT)/100. ) 

IF( .NOT. (SECODE.GT.O. AND.SECODE.LT. 3))  GO  TO  290 
ERHAD ( L ) =ERHAD ( L) +ERHD ( I ) 

290  CONTINUE 

300  CONTINUE 

DO  340  NS=1 ,MXNS 

I F ( . NOT. (IRMIN(I , IRMT) .EQ.RMI(I,NS)))  GO  TO  330 
SECODE=INT(QSA(I,IRMT,LT)/100. ) 

IF (.NOT. (SECODE.GT. 1))  GO  TO  310 
ERHAB(L,NS)=ERHAB(L,NS)+EBCBI (I ,NS) 

310  CONTINUE 

IF(. NOT. (SECODE.GT.O. AND.SECODE.LT. 3))  GO  TO  320 
ERHAB (L,NS)=ERHAB(L,NS)+ERTBI (I ,NS) 

320  CONTINUE 
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330  CONTINUE 

340  CONTINUE 

350  CONTINUE 

360  CONTINUE 

370  CONTINUE 

380  CONTINUE 

390  CONTINUE 

400  CONTINUE 
410  CONTINUE 

HI  URN 

END 
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i 


SUBROUTINE  Z1SET 


C 

C* 

C* 

c* 

c* 

c* 

C*' 

c 


ATU  MOD  SLR  21  MAY  80 

CALCULATES  THE  MAXIMUM  NUMBER  OF  SUPPORT 
EQUIP.  OF  TYPE  L  REQUIRED: ISET(L.NS)  AT 
BASE  NS  AND  ISETD(L)  AT  THE  DEPOT 


COMMON  /A/  A( 150,4,3) 

INTEGER  A 

COMMON  /ERHB 1 /  ERHBI ( 150 , 10) 
COMMON  /ERHD/  ERHDO50) 
COMMON  /]/  1 
COMMON  /I NO/  1  NO ; 150) 

COMMON  / iRMIN/  I RM I N ( 150,4) 
COMMON  /IRMT/  IRMT 
COMMON  / I  SET/  i SET ( 1 20 , 1 0 ) 
REAL  I  SET 

COMMON  /  I  SET!)/  I  SETD  (  1 20  1 
REAL  I SETD 
COMMON  / L/  L 
COMMON  /LT/  LT 
COMMON  /MX I /  MX! 

COMMON  /MX IRMT/  MX IRMT 
COMMON  /MXLT/  MXLT 
COMMON  ,  MXNS,/  MXNS 
COMMON  ,/N.JA/  NJAt  150,4) 
COMMON  ,/N'RM/  NRM(150) 

COMMON  /NS /  NS 
COMMON  /QSA/  QSA ( I  50 ,4,3) 
COMMON  /RMI  /  RMH.  150,10) 
INTEGER  RMI 
C 
C 


810625  085021477 


DO  3b0  I XXX 1  =  1, MX  I 
I  =  I  NO l IXXX1 ) 

NXXX1=NRMI  i  ) 

1 F ( . NOT . i NXXX 1 . NE . 0 ) )  GO  TO  350 
IX)  2  70  NS=  1  , MXNS 

IF). NOT . ( ERHBI ( I ,NS  )  . GT . 0 . 000001 ) )  GOTO  270 
DO  250  !RMT=1 , MX IRMT 

IFl  .NOT.  i  IRMT.  LF..NXXX1))  GO  TO  260 
IFt .NOT. i 1KMINC 1 ,1RMT) .EQ.RMI(I ,NS)))  GO  TO  240 
NXXX2=N.IA(  I  ,  IRMT) 

IFl .NOT. (NXXX2.NE.0)  )  GO  TO  230 
DO  210  LT= 1 .MXLT 
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r 


I F ( . NOT . ( LT . LE . NXXX2 ) )  GO  TO  220 
L=A( I , IRMT, LT) 

TQSA=QSA( I , IRMT,LT)-AINT(QSA(I , IRMT , LT)/ 100 . )*100 
I SET ( L , NS ) =AMAX 1 ( I  SET ( L , NS ) , TQSA ) 

210  CONTINUE 

220  CONTINUE 

230  CONTINUE 

240  CONTINUE 

250  CONTINUE 

260  CONTINUE 

270  CONTINUE 

IF( .NOT. (ERHD( I ) .GT. 0.000001))  GOTO  340 
DO  320  IRMT=1 , MX IRMT 

IF( .NOT. ( IRMT. LE.NXXX1 ) )  GO  TO  330 
IF( .NOT. (IRMINd , IRMT) .EQ. 1))  GO  TO  310 
NXXX2=NJA ( I , I RMT ) 

I F ( . NOT . ( NXXX2 . GT . 0 ) )  GO  TO  300 
DO  280  LT=1 ,MXLT 

IF( .NOT. (LT. LE.NXXX2))  GO  TO  290 
L=A( I , IRMT.LT) 

TQSA=QSA( I , IRMT,LT)-AINT(QSA(I , IRMT , LT)/ 100 . )*100 
ISETD(L)=AMAX1 ( 1SETD(L) ,TQSA) 

280  CONTINUE 

290  CONTINUE 

300  CONTINUE 

310  CONTINUE 

320  CONTINUE 

330  CONTINUE 

340  CONTINUE 
350  CONTINUE 
360  CONTINUE 


RETURN 

END 


o  n  n  n  o  n 


SL'BROL'TINE  ZUSE 


810625  085037203 

j.  .1.  j.  .  v.  .  ■ . .  • . .t.  .u  .i. .  i .  _ij.  y.  j.  .u  .i-  y.  y.  y.  y.  y.  yu  yr  jj.  jj.  y-  y.  y.  y.  .<•  y.  y.  y.  y.  j-  y.  ^  y.  y-  y«  y.  j.  y- 

COMPUTES  UTILIZATION  TO  BE  USED  FOR  * 

SENSITIVITY  BMF  4DMF  FACTORS  * 

y.y.yi.y4y.y.y).y.y.y.y.y.y.y.y|.y.y.y.y.y.y.ya.y.y.y.y.y.y.^y.y<y-yry.^y.y.y.y>y*.byry.^y.y.^ay.y.y.^^y..u.y.y^y<A.yy.^^.y.y<.yx^y. 


COMMON  /BAA/  BAA 
COMMON  /DAA/  DAA 
COMMON  /ERHAB/  ERHAB ( 1 20 , 1 0) 

COMMON  /ERHAD/  ERHAD( 120) 

COMMON  /I,/  L 

COMMON  /MUSE/  MUSE 

REAL  MUSE 

COMMON  MXL/  MXL 

COMMON  /MXNS/  MXNS 

COMMON  /NS/  NS 

COMMON  /SE1N0/  SE I  NO (120) 

INTEGER  SEINO 

COMMON  /  SETYPE  -  SF.TYPE  (120) 

INTEGER  SETYPE 

COMMON  /USE/  USE ( 120,10) 

COMMON  /USED/  l SEIM  120) 

REAL  MUSEB 
REAL  MUSED 
C 

c 

MUSEB=MUSK*BAA 
MU  S  E  D=MU  S  F.*DAA 
DO  250  I  XXX  1  =  1  ,  MX  I. 

I -SEINO ( I  XXX 1  ) 

I F (  .NOT. <  SETYPE  (L).  GET)  )  GO  TO  240 
DO  220  NS=1 , MXNS 

I F ( .NOT. ( ERHAB ( L  NS) .GT. .000001 . AND . ERHAB ( L , NS ) . LT. 

+  MUSEB  )  i  GO  TO  210 

USE l L. NS ,=0. 

210  CONTINUE 

220  CONTINUE 

I F<  .NOT. ( ERHAD(L) . GT .  .000001 .AND. ERHAD(L)  . LT. MUSED ) )  GO  TO  2  30 
USED ( L)=0 . 

230  CONTINUE 

240  CONTINUE 
250  CONTINUE 
C 

RETURN 

END 


i 
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SUBROUTINE  ZTYPE 


810625  085042000 


Q  *  Vr  Vc  Vr  - Vr  -,'r  -,V  *  Vr  iV  -V -V  *  -  V  ?V  ?V  Vr  *  Vr  *  V.-  *  *  Vr  Vr  Vr  V,-  Vr  Vr  V:  V?  ********  Vr  Vr  *******  * -V  Vr  -,'r  Vr  Vr  Vr  Vr  Vr  *  *  *  Vr  * : 

C*  COMPUTES  SAT  AND  CIMF  FACTORS  ACCORD I NO 
C*  TO  BTYPE  FOR  SENSITIVITY  CALCULATIONS 

0  "iV  Vr  Vr  Vr Vr Vr *V Vr Vr Vr  Vr  Vr  Vr Vr Vr 'V Vr Vr Vr  Vr  Vr  Vr Vr Vr Vr Vr "V Vr Vr Vr Vr Vr Vr Vr Vr Vr "V 'V Vr Vr Vr  Vr  Vr  Vr Vr Vr Vr Vr Vr “V Vr -,‘r "V Vr Vr ','r V  •jVVr.wY'VVr  #*"»fcV"VfVr' 

c 


COMMON  /BTYPE/  BTYPE (10) 
INTEGER  BTYPE 
COMMON  /CIMF/  CIMF (10) 
COMMON  /MXNS/  MXNS 
COMMON  /NS/  NS 
COMMON  /SAT/  SAT (10) 


C 


DO  230  N'S=1  ,MXNS 
SAT(NS)=0 . 

CIMF (NS)=0 . 

IF( .NOT. (BTYPE (NS) . EQ.3) )  GO  TO  210 
SAT (NS)  =  1 . 

210  CONTINUE 

I F ( .NOT . (BTYPE (NS) . EQ. 2) )  GO  TO  220 
CIMF (NS )=1 . 

220  CONTINUE 
230  CONTINUE 

RETURN 

END 
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on  o  n  n  o  n 


SUBROUTINE  ZTFR 


810625  085044519 

*  COMPUTES  ITEM  FAILURE  RATE  * 

B^V  ».*—  k'k  K'dSL%'d  J.  *I»*L  J#  JkJk  J«  J- 


COMMON  /APFH/  APFH(5,3) 
COMMON  /FAIL/  FAIL(150,10) 
COMMON  /FPLT/  FPLT(150) 
COMMON  /FPM/  FPM( 150) 

COMMON  /I/  I 
COMMON  /INO/  INO(ISO) 

COMMON  /LO/  L0(10) 

COMMON  / MX I /  MX I 

COMMON  /MXNP/  MXNP 

COMMON  /MXNS/  MXNS 

COMMON  /NITEM/  NITEM(150,5) 

REAL  NITEM 

COMMON  /NP/  NP 

COMMON  /NPLT/  NPLT(5,10) 

REAL  NPLT 

COMMON  /NS/  NS 

COMMON  /PI UP/  PI UP 

COMMON  /TFAC/  TFAC(5) 

COMMON  /TFR/  TFR(150) 

COMMON  /TNB/  TNB(IO) 


DO  250  IXXX1=1 ,MXI 
I = I NO ( I XXXI ) 

TFR( I )=0 . 0 
TEMO 1=0 . 

DO  210  NS=1 , MXNS 

TEMO 1=TEM0 1+TNB (NS )*FA I L ( I , NS ) 

210  CONTINUE 

FPM (I )=TEM01 

FPLT ( I )= 1 2 . *P I UP*FPM ( I ) 

TEM03=0 . 

DO  230  NS* 1. MXNS 
TEM02=0 . 

DO  220  NP-1 , MXNP 

TEMO 2=TEM02+N ITEM ( I ,NP)*NPLT(NP ,NS )*APFH(NP , LO(NS ) )*TFAC (NP ) 
220  CONTINUE 

TEM03=TEM03+TNB (NS )*TEM02 
230  CONTINUE 
TOO=TEM03 

IF( .NOT. (TOO. GE. 0.000001))  GO  TO  240 
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♦  fv- 


TFR(I )=FPM(I)*1000000 . /TOO 
240  CONTINUE 
250  CONTINUE 

RETURN 

END 


9  9° 


SUBROUTINE  ZSECI 


810625  08504856b 

COMPUTES  SECT ( I ) ,THE  PRO  RATA  PART  OF  SEC  * 

ATU  MOD  JRC  2  JUN  80  * 


COMMON  /A/ 
INTEGER  A 
COMMON  /BAA/ 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON- 
COMMON 
COMMON 
COMMON 


A( 150 ,4,3) 


BAA 

/COND/  CON’D ( 150) 

/CSE/  CSE( 120) 

/DAA/  DAA 
/ERHA/  ERHA( 120) 
/ERHAB/  ERHAB (120,10) 
/ERHAD/  ERHAD( 120) 
/ERHBI/  ERHBI ( 150 ,10) 
/ERHD/  ERHD(150) 

/I/  I 

/INO/  I NO ( 150 ) 

/IRMIN7  IRMIN( 150,4) 

/ I RMT /  IRMT 
/ 1  SET/  ISET( 120,10) 
REAL  ISET 

COMMON  / ISETD/  ISETD(120) 
REAL  ISETD 
COMMON  / L/  L 
COMMON  /LT/  LT 
COMMON  /MSE/  MSE(120) 

REAL  MSE 


COMMON 
COMMON 
COMMON- 
COMMON 
COMMON 
COMMON- 
COMMON 
COMMON 
COMMON 
REAL  NSEB 
COMMON  /NSED/ 

REAL  NSED 

COMMON  /PBDV/  PBDV(120) 
COMMON  /PDDV/  PDDV(120) 
COMMON  /PI UP/  PI  UP 
COMMON  /QSA/  QSA( 150,4,3) 
COMMON  / RM I /  RMI ( 150 , 10) 


/ MX I /  MX I 
/MX r RMT/  MX I RMT 
/MXL/  MXL 
/MXLT/  MXLT 
/MXNS/  MXNS 
/NJA/  NJA( 150,4) 
/NRM/  N'RM ( 150 ) 

/NS/  NS 

/NSEB/  NSEB ( 120 , 10) 


NSF,D(  120) 
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INTEGER  RMI 

COMMON  /SECB/  SECB(120) 
COMMON  /SECD/  SECD(120) 
COMMON  /SECI/  SECI (150) 
COMMON  /SEDEV/  SEDEV(120) 
COMMON  /SEDV/  SEDV(120) 
COMMON  /SEINO/  SEIN0(120) 
INTEGER  SEINO 

COMMON  /SETYPE/  SETYPE(120) 
INTEGER  SETYPE 
COMMON  /TERHB/  TERHBC 120) 
COMMON  /TERHD/  TF.RHD(120) 
COMMON  /TNB/  TNB(IO) 

COMMON  /TUCTDC/  Tl'CTDC 
COMMON  /L'CTDC/  l'CTDC(150) 
COMMON  /UCTDEY/  UCTI)EY(  150  ) 
REAL  NXXX1 
REAL  NXXX2 

DIMENSION  T2 ( 150 ,120) 
DIMENSION  T4(150, 120) 


DO  210  I XXX 1=1 ,MXI 
I=INO( IXXX1 ) 

L'CTDC  ( I  )=LCTDEV ( I  )*U ( 1 .  -COND(  I )  ) 

TL'CTDC=TL'CTDC+LCTDC  ( I ) 

210  CONTINUE 

DO  270  IXXX1=1 ,MXL 
L=SEINO( I XXXI ) 

DO  240  NS=1.MXNS 

IF( .NOT. (SETYPE CL) .EQ. 1) )  GO  TO  220 
NSEB ( L , NS ) =ERHAB ( L , NS ) / BAA- I  SET ( L , NS ) 

220  CONTINUE 

I F (.  ■  NOT.  ( SETYPE (L) . GE .  2 ) )  GO  TO  230 

NSEB ( L , NS )=AINT(ERHAB (L ,NS ) /BAA+ .9999 )*ISET ( L , NS ) 
230  CONTINUE 

240  CONTINUE 

I F ( . NOT . ( SETYPE ( L 1 . EQ . 1 ) )  GO  TO  250 
NSED  ( L )  =F.RHAD  (LI/  DA  A*  I SETD  ( L ) 

250  CONTINUE 

IF( .NOT. ( SETYPE (L) .GE . 2) )  GO  TO  260 

NSED (L)=AINT(ERHAI)(L)/DAA+. 9999 )*I SETD (L) 

260  CONTINUE 
270  CONTINUE 

DO  430  I XXX 1=1 ,MXI 
I  =  I NO ( I XXX 1 ) 

DO  280  IXXX2=1 ,MXL 
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L=SEINO( IXXX2) 

T2 ( I , L)=0 . 

T4 ( I , L ) =0 . 

280  CONTINUE 

NXXX1=NRM(I) 

IF C -NOT. (NXXX1 .GT.O) )  GO  TO  360 
DO  350  NS=1 , MXNS 

DO  330  I RMT= 1 , MX I RMT 

IF t .NOT. (IRMT.LE.NXXX1))  GO  TO  340 
I F  (.  ■  NOT.  ( IRMIN(  I ,  I  RMT)  .  EQ.  RMI  (  I  ,\S  )  )  )  GO  TO  320 
NXXX2=NJA( I , I RMT) 

I F ( .NOT. (NXXX2. GT.O))  GO  TO  310 
DO  290  LT=1 ,MXLT 

IF (.NOT. (LT.LE.NXXX2))  GO  TO  300 

L=A ( I , I RMT , LT) 

T1=ERHBI (I ,NS)*TNB(NS)*(QSA(I , I RMT , LT) -AINT(QSA ( I , 
+  1 RMT , LT ) / 1 00 . ) * 1 00 . ) 

TERHB ( L)=TERH8 ( L)+T1 

T2 ( I , L)=T2 (I , L)+T1 
290  CONTINUE 

300  CONTINUE 

310  CONTINUE 

320  CONTINUE 

330  CONTINUE 

340  CONTINUE 

350  CONTINUE 
3b0  CONTINUE 

DO  410  IRMT=1 , MX I RMT 

IF ( .NOT. (IRMT.LE.NXXX1))  GO  TO  420 
IF( .NOT. (IRMINd , IRMT) .EQ. 1))  GO  TO  400 
NXXX2=N JA ( I , IRMT) 

I F ( .NOT. (NXXX2.GT.0))  GO  TO  390 
DO  370  LT=1 , MXLT 

I F ( . NOT . ( LT . LE . NXXX2 ) )  GO  TO  380 
L=A ( I , IRMT , LT) 

T3=F,RHD  ( I  )*  (QSA(  I  ,  I  RMT ,  LT )  -  A I  NT  ( QSA  (  I  ,  I  RMT ,  LT )  /  1 00  .  )  * 
+  100.) 

TERHD(  I,)=TERHD(L)+T3 
T4 ( I , L)=T4 ( I ,L)+T3 
370  CONTINUE 

380  CONTINUE 

390  CONTINUE 

400  CONTINUE 
*10  CONTINUE 
420  CONTINUE 
430  CONTINUE 

DO  470  IXXX1=1 ,MXL 
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L=SE  I  NO  f  ixxxn 

SF.CD ( I.)=NSEI)(  L  )*CSE  (  L)*(  1  .+PIl’P*MSE(L) ) 

TEMO 1=0 . 

DO  -*40  SS=1.MXNS 

TEMO  1  =TEMO  1 +NSEB  (  L ,  SS  )*TS'B  (  N'S ) 

440  CONTINUE 

SECB  ( L  )=TEMO 1*CSE  ( L  )'••'(  1 . +PIUP--MSE  (L)  ) 

PBI)V(L)=0 . 

PDDV(L)=0. 

TEMO 2=0. 

DO  450  NS= 1 , MXNS 

TE  M 0  2  =TE M 0  2+E  R H  A  B  ( L ,  NS  ) 

450  CONTINUE 

EHHA  ( L)=TEM02+EHHAD(.  L) 

SEDV  ( U=U  (T.K11A  (  L )  '••••  SEDF.V  (  L ) 

I  Ft .NOT. (TERHBiL)  - GT .0.000001 . OR . TERHD ( L ) . GT . 

+  0.000001))  GO  TO  4t>0 

PBDV t  L  )=TERHB  (.  L  )*SEDV(  L  )  /  (TERHB  (LJ+TERHD  (  L)  ) 

PDDV  ( I. )=TERHI)  (  L  )  --'SEDV (  E  j  ( TERHB  (  L)+TERHD(  L) ) 

460  CONTINUE 
470  CONTINUE 

DO  510  IXXX 1 = 1 , MXI 

i = i  n  o  ( ixxxn 

SEC  I  (I  )  =UCT1)C  l  1  ) 

DO  500  IXXX2=1  ,  MXI. 

L=SE I  NO i IXXX2) 

I  Ft .NOT. (TERHB(L)  .GT. 0.000001  ) )  GO  TO  -80 

SEC  1  (  I  )=SECI  (.1  )  + ;  SECB  (  L  i+PBDV  (  L)  )'-T2(  I  ,L) /TERHBIL) 
480  CONTINUE 

1 K ( . NOT . 1 TERHD ( L ) . GT . 0 . 00000 1 ) )  GO  TO  490 

SEC  1 1  I  )=SEC I ( I  )  +  (SECD( Lj+PDDVl L) )*T4( I ,E1  TERHD ( L ) 
490  CONTINUE 

500  CONTINUE 
510  CONTINUE 

RETURN 

END 
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SUBROUTINE  ZPMEQ 


810625  085111682 


COMPUTES  PRIME  MISSION  EQUIPMENT  QUANTITIES 

FOR  EACH  LRU  ITEM 

ATU  MOD  SLR  -  15  MAY  80 


COMMON  /I/  I 
COMMON  / I NO/  I NO ( 150) 

COMMON  /LRU/  LRU (150) 

COMMON  /MXI /  MX I 

COMMON  /MXNP/  MXNP 

COMMON  /MXNS/  MXNS 

COMMON  /NITEM/  NITEM(150,5) 

REAL  NITtM 

COMMON  /NP/  NP 

COMMON  /NPLT/  NPLT(5,10) 

REAL  NPLT 

COMMON  /NS/  NS 

COMMON  /PMEQ/  PMEQ(150) 

COMMON  ,/TNB/  TNB(IO) 


DO  230  I XXX 1=1 , MXI 
I = I N 0 ( IXXX1) 

TEM02=0. 

DO  220  NS=1,MXNS 
TEMO 1=0 . 

DO  210  NP=I , MXNP 

TEMO 1=TEM0 1+NPLT (NP , NS )*NITEM( I , NP) 
210  CONTINUE 

TEM02=TEM02+TEM0 1*TNB (NS ) 

220  CONTINUE 

PMEQ ( I ) =TE M 0 2* F LO AT ( LRU ( I ) ) 

230  CONTINUE 

RETURN- 

END 
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SUBROUTINE  ZT1SQ 

C  810625  085113777 

C*  COMPUTES  TOTAL  INVESTMENT  SPARES  QUANTITY 

C*  FOR  AN  ITEM  OF  TYPE  I  * 

C*  ATI:  MOD  SLR  -  15  MAY  80 


COMMON  /US/  DS ( 150) 
COMMON  /I/  1 
COMMON  /I NO/  ISO (1501 
COMMON  / MX I /  MX! 

COMMON  /MXNS/  MXNS 
COMMON  /STB/  NFH (330,1 0) 
REAL  NFB 

COMMON  /'NED/  NFDi.150) 
REAL  NFD 
COMMON  /SS/  NS 
COMMON  /TISQ/  T3SQ(150) 
COMMON  / TN B /  T.NBflO) 


DO  220  I XXX  3=3 , MX  I 
I® I  VO  (I XXXI  ) 

T I SQ ( I  >=0. 

DSfl  )®F<NT1>( 1 )) 

DO  210  NS® 1 .MXNS 
BBS=F(NFB(T  .NS  ) ) 

T1 SQ  C I )=T I SQ( I )  +  (TNB (NS)* BBS) 
210  CONTINUE 

TlSQt  I  )=TISQ(I)+DS(1 ) 

220  CONTINUE 


RETURN 

END 


o  o 


SUBROUTINE  ZYRSQ 


aaa- 


.-I.-!-. 


A' 


•V  «V  A  A  A  A  A*  A  A  A  A  A*  A  A*  A  A'  A  A  A  A  A  v 


COMPUTES  YEARLY  REPLACEMENT  SPARES  QUANTITY 
DUE  TO  AN  INDIVIDUAL  ITEM  TYPE  I 
ATI'  MOD  SLR  -  15  MAY  80 


C 

C 


COMMON  /COND/  C0ND(150) 
COMMON  /FAIL/  FAIL(150,10) 
COMMON  /I/  I 
COMMON  /I NO/  I NO (150) 
COMMON  / MX 1 /  MX  I 
COMMON  /MX.NS/  MXNS 
COMMON  / NH I /  NHK150) 
COMMON  /NS/  NS 
COMMON  /TNB/  TNB(IO) 

COMMON  /YRSQ/  YRSQ(150) 


DO  230  I XXX 1  =  1 ,MXI 
I  =  I NO  C I XXXI ) 

CI)=0 . 

I F ( . NOT . ( NH I ( I ) . GT . 0 ) )  GO  TO  210 
CD=CONI)(  NHI  (  I )  ) 

210  CONTINUE 
TEMO 1=0 . 

DO  220  NS =1, MXNS 

TEMO 1=TEM0 1+FAIL( I ,NS)*TNB(NS) 

220  CONTINUE 

YRSQ ( I ) = 1 2 . *TEMO 1 * ( 1 . - COND ( NH I ( I ) ) ) *COND l I ) 
230  CONTINUE 


C 


RETURN 

END 
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SUBROUTINE  ZTOTPQ 


C 

c 


810625  085121658 

********************************************* 


COMPUTES  THE  TOTAL  QUANTITIES  OF 
EACH  ITEM  TO  BE  PROCURED 
ATU  MOD  SLR  -  15  MAY  80 


COMMON  /I/  I 
COMMON  /I  NO/  I  NO (1501 
COMMON  / MX I /  MX  I 
COMMON  /NRUC /  NRUC 
REAL  NRUC 

COMMON  /PMEQ/  PMF.Q(150) 
COMMON  /TISQ/  TISQU50) 
COMMON  /TOTPQ/  TOTPQ (150) 
COMMON  /YRSQ/  YRSQC150) 


DO  210  I XXX 1=1 , MX I 

i  =  ixo(ixxxn 

TOTPQ (I )=PMEQ( I )+TISQ( I )+NRUC*VRSQ( I ) 
210  CONTINUE 
C 


RETURN 

FAD 
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SUBROUTINE  ZLC 


C  810625  085122779 

C*  LEARNING  CURVE  EFFECTS  FOR  ALL  ITEMS  OF  TYPE  I 
*  ATI'  MOD  SLR  -  15  MAY  80  * 

COMMON  / 1 /  I 
COMMON  /INO/  I NO ( 150) 

COMMON  / LC/  LCC150) 

REAL  LC 

COMMON  / MX I /  MX  I 
C 
C 

DO  210  I XXX 1  =  1 , MX I 
I  =  I  SO  C IXXX1) 

LC ( I )=XLEARN ( I  ) 

210  CONTINUE 
C 

RETURN 

END 
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FUNCTION  U(X) 


810625  085126416 


C 

U»0 . 

IF( .NOT. (X.GT. .000001 )  )  GO  TO  210 
U=1  . 

210  CONTINUE 
C 

RETURN 

END 


1  18 


FUNCTION  F(X) 


COMMON  /BF/  BF 


F=0 . 

IF ( .NOT. (X.GT. .000001))  GO  TO  210 
F=X+BF*SQRT(X) 

210  CONTINUE 

RETURN 

END 


FUNCTION  XLEARN ( I ) 


810625  085129597 

**************************************** 


C 

C*  LEARNING  EFFECTS  IN  EQUATIONS  * 

C*  ATU  MOD  SLR  -  20  MAY  80  * 

C*********************************************************************** 

c 

COMMON  /LF AC/  LFAC(150) 

REAL  LFAC 

COMMON  /TOTPQ/  TOTPQ(ISO) 

COMMON  /XITEMQ/  XITEMQC 150) 

REAL  N 
C 
C 

XLEARN=1 . 

B I  -ALOG 1 0  ( LF  AC  ( I  n/ALOGIO(2.  ) 

N=TOTPQ( I ) fXITEMQC I ) 

IF ( .NOT. (N.GT. 1 .0) )  GO  TO  210 

XLEARN=1 . /N*( 1 . / (BI+1 . ,)*( N**( BI+1 . )-l . )+ . 5*(N**BI+1 . )+BI/12.*(N* 
+  *  ( B I  -  1 .  )  "  1  •  ) ) 

210  CONTINUE 
C 

RETURN 

END 


r 


SUBROUTINE  COST1 

810625  085 

COMPUTES  PRODUCTION  COST  ELEMENT-PRODC 
ATU  MOD  SLR  -  20  MAY  80 


131754 


COMMON  /HDWRIT/  HDWRIT( 150 , 5 ) 
COMMON  /HDVRT/  HDVRTCS) 

COMMON  /I/  I 
COMMON  /INO/  I NO ( 1 5  0 ) 

COMMON  / INTNR/  I NTNR ( 5 ) 

REAL  INTNR 

COMMON  / INTR/  INTR(5) 

REAL  INTR 

COMMON  /LC/  LC  ( 1 5  0 ) 

REAL  LC 

COMMON  /LRU/  LRU (150) 

COMMON  / LUP/  LUP( 150) 

REAL  LUP 

COMMON  / MX I /  MX I 

COMMON  /MXNP/  MXNP 

COMMON  /MXNS/  MXNS 

COMMON  /NTTEM/  NrTEM(150,5) 

REAL  NITEM 

COMMON  /NP/  NP 

COMMON  /NPLT/  NPLT(5,10) 

REAL  NPLT 
COMMON  /NS/  NS 
COMMON  / PRODC/  PRODC 
COMMON  /TERMC/  TF.RMC(5) 
COMMON  /TF.RMH/  TERMH 
COMMON  /TERM  1 /  TERM  I 
COMMON  /TNB/  TNB(IO) 

COMMON  /TOTT/  TOTT(5) 

COMMON  /UP/  UP (150) 

COMMON  /XUC/  XUC 


DO  240  N'P=1  .MXNP 
HDWRTCNP )-0 . 

DO  220  IXXX2=1 ,MXI 
I  =  I  NO ( IXXX2  ) 

LUP ( I )=UP(I )*LC( I  ) 

HDWRITC I  ,NP  )=NITF,M(  I  ,NP)*LUP(  1  )*XUC 
I  FI  .NOT. (LRU(I ) .EQ. 1))  GO  TO  2  10 
HDWRTfNP )=HDWRT ( NP l+HDWR IT( 1 ,NP) 


I 


210  CONTINUE 
220  CONTINUE 
TEMO 1=0 . 

DO  230  NS=1,MXNS 

TEMO 1=TEM0 1+TNB (NS )*NPLT(NP ,NS ) 

230  CONTINUE 

TOTT(NP)=TEMO 1 

TERMC ( N  P ) = ( I NTNR ( NP ) / TOTT ( NP ) ) + 1 NTR ( NP ) +HDWRT ( NP ) 
TE  RMH=TERMH+ ( TOTT ( NP ) *HDWRT ( NP ) ) 

TERM I =TERM I  +  ( TOTT ( N  P ) * I NTR (NP ) )+I NTNR ( N  P ) 

240  CONTINUE 

PRODC=TERMH+TERM I 

RETURN 

END 


SUBROUTINE  COST2 


C  810625  085139201 

£  -*j. .L. ^ .L  «•.  -U J. .1. J.  .1. •>. -jlj-  J.  J.  -Ij. .U .U J. . u  J-  ^  J.  J.  J.  ■j'.  -I.  .»« .1. .1.  . .1. -i.  .  ■. 

C*  COMPUTES  MODIFICATION/INSTALLATION 
C*  COST  ELEMENT -MIC 

C 

COMMON  /AKIT/  AKIT(4,5) 

COMMON  /FR /  FR ( 3 , 5 ) 

COMMON  / 1 A/  I A 
COMMON  / I  MICA/  I  MICA ( 5 ) 

REAL  I  MICA 
COMMON  /M/  M 
COMMON  /MIC/  MIC 
REAL  MIC 

COMMON  /MI  FIX/  MI  FIX (3, 5) 

REAL  MI  FIX 

COMMON  ,/MILR/  MILR(3) 

REAL  MILR 

COMMON  / M 1 MH /  MIMH(4,3,5) 

REAL  MI MH 

COMMON  /MXM/  MXM 

COMMON  /MXNP/  MXNP 

COMMON  / MXNS /  MXNS 

COMMON  / N I A /  NIA 

COMMON  / N P /  NP 

COMMON  , NPLT.  NPLT(5,10) 

REAL  NPLT 

COMMON  /NRMI  '  NRMI (5) 

REAL  NRMI 
COMMON  , NS ,  NS 
COMMON  PI)I\  PD  1 V  (  5  ) 

COMMON  RM I CA /  RMICA(5) 

COMMON  ,'TNB/  TNB  (101 
COMMON  /XM I L/  XM1L 
REAL  I  MIC 
C 

c 

c 

C . FIRST  COMPETE  NON-RECURRING  MOD/ INSTALL  COST 

1  MI C=0 . 

RM I C=0 . 

DO  240  NP=J .MXNP 

IMICAINP  )=PDIV(NP  U'-NRMI  (NP) 

IMIC  TMIC+IMICAINP) 

C 

C . NEXT  COMPUTE  RECURRING  MOD/ INSTALL  COST 
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TEM02=0 . 

DO  220  M= 1 , MXM 
TEMO 1=0 . 

DO  210  I A= 1  ,NIA 

TEM01=TEM01+MIMH(IA,M,NP)*XM1L*MILR(M)+AKIT(IA,NP) 
210  CONTINUE 

TEM02=TEM02+FR ( M , NP )* ( (M IF I X ( M , NP ) * 1 000 . )+TEM0 1 ) 

220  CONTINUE 

RMTCA(NP)=TEM02 
TEMO 3=0 . 

DO  230  NS=1,MXNS 

TEM03=TEM0  3+TNB  (,  NS ) *NPLT ( NP , NS )*RM I CA ( NP ) 

230  CONTINUE 

RM I C=RM I C+TEMO  3 
2-fO  CONTINUE 

....TOTAL  MOD/INSTALL  COST  IS  THEN : 

MIC=IMIC+RMIC 

RETURN- 

END 
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SUBROUTINE  COST3 

C  810625  085144025 


*  COMPUTES  OPERATIONS  COST  ELEMENT-OC 
C 

COMMON  /AFC/  AFC 
COMMON  /AM PM/  AM PM (5, 3) 

COMMON  /APFti >  APFH(5,3) 

COMMON  BAFC/  BAFC(6) 

COMMON  /BOLC/  BOl,C(6 ) 

COMMON  ''BP EAT/  BPLAT(IO) 

INTEGER  BPI.AT 

COMMON  / BTYPE >  BTYPE(IO) 

INTEGER  BTYPE 
COMMON  -CFO/  CFG  1 31 
COMMON  DRAG/  DRAG  15) 

COMMON  / FGH  /  FGH 1 8 ) 

COMMON  /.K  K  (  5  ) 

REAL  K 

COMMON  /LO:  1,0(10) 

COMMON  MMPD /  MMP1)(5,3) 

REAL  MMPD 

COMMON  / MM PM/  MMPM(5) 

REAL  MMPM 

COMMON  ,'MXNP./  MXNP 
COMMON  NX NS  MXNS 
COMMON  NAE /  NAE  (  .5) 

REAL  NAE 

COMMON  NT,  NT 

COMMON  /NPLT,  NPLTC5.10) 

REAL  NPLT 
COMMON  /NS-  NS 
COMMON  ,00/  OC 
COMMON  / 0 LC /  OLC 
COMMON  01, CP,  OLCP 
COMMON  /OLCT./  01, CT 
COMMON  /PUT,.  PUT 
COMMON  /PMLR/  PMLR 
COMMON  /THRS/  THKS(5) 

COMMON  /T.Nfi  /  T.NB(IO) 

COMMON  ,'TNLR/  TNI.R 
C 
C 
C 

C . FIRST  COMPUTE  OPERATIONAL  LABOR  COST  (OLC) 

DO  230  NS- 1, MXNS 
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TEMP  1  =0  . 

I)i  210  NP=  1  , MXNP 

TKM1'  1  =TKMC  1  +NPLT  (Sl'.NS  )*TNB  (  NS  )*MMPD  ( NP  ,  LO  C  NS  )  ) 

10  ('-'NT!  NIT. 

PS  l  =TEMO l*3r 5  .  •••p I l'P*TNI.R / 60  . 

TFM'T  =  0  . 

•K  Jjo  NP=  i  ,  MXNP 

TKM-  .T  TTKT-'-XPI/n  NP ,  NS  )*TNB  (  NS  )••'••  MM  PM  ( NP)*AMPM  (  NP  ,  LO  (NS) 

O'  NT:  NI  K 

DS-=7KM  o"  1 :  .  U  P^PMLK/oO  . 

!  :.::t=  LCT+DS1 
l. rp--  !LCP+i;sl 

B  LO.  BTYPK  i  NS  I  =BOLC  (  BTYPE  ( NS  )  (+DS1+DS2 
I  H=  >*BPLAT(  NS  ) 

B;  LO  .II-  .  --in  TO ;  I  B  i+I)S  1+1)82 
T'  C  'NT!  NIT 

0 1,0=0  LOT+OLCP 

...NEXT  COMPOTE  ADDL’D  FILL  COST  (AFC) 

In:  2 SO  NS= 1  , MXNS 
TKMO .’)=() . 

Df'  240  NP= !  , MXNP 

I K i -NOT. ' K i NP) . GT . 0 . nOOl . AND . THRS ( NP ) . GT . 0 . 000 1 ) )  GO  TO 
TK.MO;j=TK  MOS+NPI.Tt  Nl’.NS  >*TNB(NS  )*APFH  (NP  .  LOCKS  )  )*FGH  (  NP  )’• 
+  CFG  (  LO  i  NS  )'VNAF.  (  NP  v-'DKAC; !  NP  1 ( K  ( NP  )*THRS  (NP ) ) 

40  CONTI  NVK. 

nSA=TKM03*12.--M'IL’P 
AFO=AFC+DS 3 

BAFCi  BTYPK  ;  NS  :  i  =  BAFC  (  BTYPK  (  NS  )  i+I)S3 
1 B=3  +  BPI,AT(  NS  i 
BAFCi  IB  )  =  BAFC; IB  )  M)S3 
50  CONTI  nit: 

...TOTAL  OPERATIONS  C'1ST  (OC) 

OC=OLC+AFC 


SUBROUTINE  C0ST4 
C 

C*  COMPUTES  INVESTMENT  SPARES  COST  ELEMENT-ISC 
C*  ATU  MOD  SLR  -  20  MAY  80 

£  .t.  .1-  -i-  jj.  j.  j-  j.  ,i  -v  Vr  *'r  Vf  Vr  V* ■ 


COMMON  / B I  SC/  BISCl'6) 

COMMON  /BPLAT/  BPLAT(IO) 

INTEGER  BPLAT 
COMMON  ZB;  BS  ( 150) 

COMMON  /BTYPE/  BTYPE(IO) 

INTEGER  BTYPE 
COMMON  /DS/  DS ( 150) 

COMMON  /I/  I 
COMMON  I  NO/  I NO (150) 

COMMON  /ISC/  ISC 
REAL  ISC 

COMMON  ,/ISCA/  ISCA(150) 

REAL  ISCA 

COMMON  / I SCB/  ISCB 
REAL  ISCB 

COMMON  /I SCD/  I SCD 
REAL  I SCD 

COMMON  /LC/  LC( 150) 

REAL  LC 

COMMON  / NX I /  MX I 
COMMON  /MXNS/  MXNS 
COMMON  /NFB/  NFB(150,10) 

REAL  NFB 

COMMON  /NFD/  NFD( 150) 

REAL  NFD 

COMMON  /NS/  NS 

COMMON  /TISQ/  TISQC150) 

COMMON  /TNB/  TNB(IO) 

COMMON  /UP /  UP (150) 

COMMON  /XUC/  XUC 
C 
C 

DO  220  I XXX 1=1 , MX I 
I  =  I NO  C I XXXI ) 

I  SC A ( I ) =T I SQ ( I ) *UP ( I ) *LC ( I ) *XUC 
DO  210  NS=1,MXNS 

BBSP=TNB (NS )*F(NFB ( I ,NS ) ) 

BS ( I )=BS ( I )+BBSP 
BSPC=BBSP*UP ( I )*XUC*LC ( I ) 

B ISC (BTYPE (NS) )=BISC (BTYPE (NS) )+BSPC 
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1B=3+BPLAT(NS) 
BISC(IB)=BISC(IB)+BSPC 
ISCB=ISCB+BSPC 
210  CONTINUE 

DS ( I )=F (NFD( I ) ) 

I SCD= I SC  D+DS ( I ) *UP ( I ) *XUC*LC ( I ) 
220  CONTINUE 
TEMO 1=0 . 

DO  230  I XXX 1 = 1 , NX I 
I=INO( IXXX1 ) 

TEM01=TEN01+ISCA(I ) 

230  CONTINUE 
I SC=TEM01 

RETURN 

END 
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o  n 


SUBROUTINE  COST5 


C 

*  COMPUTES  REPLACEMENT  SPARES  COST  ELEMENT-RSC 
C*  ATU  MOD  SLR  -  20  MAY  80 

Q  -I-. -L. .t.  ■.!-  -U  >1-  - .J  .  -I-  -.tj.  -I..  J-  -J-  .Jj.  -Ij.  J-  .Ij.  -L.  .Jj.  . 

c 


810625  085156325 


COMMON  /BPLAT/  BPLAT(IO) 

INTEGER  BPLAT 
COMMON  /BRSC/  BRSC(6) 

COMMON  /BTYPE/  BTYPE(IO) 

INTEGER  BTYPE 

COMMON  /CON'D/  COND(150) 

COMMON  /FAIL/  FAIL! 150, 10) 

COMMON  /I/  I 
COMMON  / J  NO/  I  NO (150) 

COMMON  /LC/  LC ( 150 ) 

REAL  LC 

COMMON  /LRU/  LRU (150) 

COMMON  /MX 1 /  MX I 
COMMON  /MXNS/  MXNS 
COMMON  /SHI/  NH I (150) 

COMMON  /NRUC/  NRUC 
REAL  NRUC 
COMMON  /NS/  NS 
COMMON  /PI UP/  PIUP 
COMMON  /RM/  RM( 150) 

COMMON  /RSC/  RSC 
COMMON  /RSCA/  RSCA(150) 

COMMON  /TNB/  TNB(IO) 

COMMON  /UP/  UP (150) 

COMMON  /XUC/  XUC 
C 
C 

DO  240  I XXX 1=1, MX I 

I=INO( IXXX1 ) 

TEMO 1=0 . 

DO  210  NS=1 ,MXNS 

TEMO 1=TEM0 1 +FA I L ( I , NS )*TNB (NS ) 

210  CONTINUE 

TEMP=  1 2  .  ■•'•TEMO  1* ( 1 .  -COND (NH I  ( I )  )  ) 

RSCA ( I ) =TEMP* ( ( NRUC*LC ( I )  +  ( P I UP -NRUC ) ) *COND ( I ) +P I UP* ( 1 . -CONDI  I  1 ) 
+  *RM ( I ) ) *UP ( I ) *XUC 

CD=0 . 

I F ( . NOT . I  LRU (I) . EQ . 0 ) )  GO  TO  220 
CD=COND(NHI (I)) 

220  CONTINUE 
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DO  230  NS=1,MXNS 

TFL=TNB(NS)*FAIL(I ,NS) 

BSPC=  1 2  .  *TFL*  ( 1 .  -CD  )*  ( CON'D  (  I )  +  ( 1 .  -COND  (  I ) ) *RM  ( I )  ) *UP  ( I ) *XUC 
+  (NRUC*LC(I )+(PIUP-NRUC) ) 

BRSC ( BTYPE (NS ) )=BRSC ( BTYPE ( NS ) )+BSPC 
IB=3+BPLAT(NS) 

BRSC ( IB )=BRSC ( IB )+BSPC 
230  CONTINUE 

RSC=RSC+RSCA ( I ) 

240  CONTINUE 

RETURN 

END 
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SUBROUTINE  COST6 


COMPUTES  ON-EQUIPMENT  MAINTENANCE 
COST  ELEMENT -ONMC 


COMMON  /APFH/  APFH(5,3) 
COMMON  /BLR/  BLR 
COMMON  /BMF /  BMF 
COMMON  /BONMC/  BONMC(6) 
COMMON  /BPLAT/  BPLAT(IO) 
INTEGER  BPLAT 
COMMON  /BTYPE/  BTYPE(IO) 
INTEGER  BTYPE 

COMMON  /FAIL/  FAIL(150,10) 
COMMON  /FPR/  FPR (150) 

COMMON  /I/  1 
COMMON  / INO/  I  NO ( 150) 

COMMON  /  I PCF /  IPCF ( 150) 

REAL  IPCF 

COMMON  /KFAC/  KFAC(4) 

REAL  KFAC 
COMMON  /LE/  LE ( 5 ) 

COMMON  /LO/  L0(10) 

COMMON  /LRU/  LRU (150) 

COMMON  /MTBMI /  MTBMI ( 150,4) 

REAL  MTBMI 

COMMON  /MXI /  MX I 

COMMON  /MXNP/  MXNP 

COMMON  /MXNS/  MXNS 

COMMON  /NITEM/  NITEM(150,5) 

REAL  NITEM 

COMMON  /NP/  NP 

COMMON  /NPLT /  NPLT(5,10) 

REAL  NPLT 

COMMON  /NS/  NS 

COMMON  /ONMC/  ONMC 

COMMON  /ONMCA/  ONMCA(150) 

COMMON  /PIUP/  PIUP 

COMMON  /RIP/  R I P ( 150) 

COMMON  /RMH/  RMHC150) 

COMMON  /TFAC/  TFAC ( 5 ) 

COMMON  /TNB/  TNB(IO) 

COMMON  /XFPR/  XFPR 
COMMON  /XFR/  XFR 


c 


DO  250  IXXX1=1 , MX  I 
1  =  1 NO ( 1XXX1  ) 

I F ( . NOT . ( LRU I  ) . EQ .  1  ) )  GO  TO  2  50 
DO  240  NS=1,MXSS 

TFl,=TNB(  NS  )*FAI L(  1  ,NS) 

DS 1  =  1 2  . *P I UP*TFL* (  1 .  +XFPR--FPR ( I  )  )*RMH ( I  )*BMF*BLR 
I F ( .NOT. (RIP( 1 ) .LT. .999) )  GO  TO  210 

DS  2=  1 2  .  P 1 U P*TF L*R l  P (  I  )*I  PCF(  I  )*BMF/  (  1  .  - K 1 P (  I ) ) 

210  CONTINUE 
C 

C . IF  R I P ( I  )  =  1  COMPUTE  NO.  OF  NON-REMOVED  FAILURES 

IF f .NOT. ( R I P ( I) .GE. .999) 1  GO  TO  230 
TEMO 1=0 . 

DO  220  NP=1 , MXNP 

I F  (.  .  NOT .  (  N 1 TEM  (  I  ,  NP  )  .  GT  .  .001))  GO  TO  220 
TEMO I =TEMO 1 +N I TEM ( I , NP ) *TFAC (NP ) *KFAC ( LE ( NP ) ) /MTBM 1(1, 
+  LE ( NP ) )*NPLT( NP . NS )*APFH ( NP , LO(NS ) ) 

220  CONTINUE 

TF  L=XFR*TEMO 1 *TN B ( NS  1 
DS2=12.*riUP*TFL*IPCF( 1 )*BMF 
230  CONTINUE 

ONMCAU  )=ONMCA(  I  I+DS1+DS2 

BONMC  (BTYPF.  (  NS  )  )=BONMC(  BTYPE  (  NS  )  )+DS  1+DS2 

I B=3+BPLAT( NS ) 

BONMC (  IP  )=BONMC (  lin+DSl+I)S2 
240  CONTINUE 

ONMC=ONMC+ONMCA  (  1  ) 

250  CONTINUE 
C 

RETURN 

END 
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_ 


SUBROUTINE  COST7 


C*  COMPUTES  OFF -EQUIPMENT  MAINTENANCE 
C*  COST  ELEMENT -OFMC 


COMMON  /BCMH/  BCMH(150) 
COMMON  /BLR/  BLR 
COMMON  /BMF /  BMF 
COMMON  /BMH/  BMIK150) 
COMMON  /BOFMC/  B0FMC(6) 
COMMON  /BPLAT/  BPLAT(IO) 
INTEGER  BPLAT 
COMMON  /BTYPE/  BTYPE(IO) 
INTEGER  BTYPE 
COMMON  /COND/  COND(ISO) 
COMMON  /CPPC/  CPPC 
COMMON  /CPPD/  CPPD(3) 
COMMON  /DLR/  DLR 
COMMON  /DMF/  DMF 
COMMON  /DMH/  DMH(150) 
COMMON  /FAIL/  FAIL(150,10) 
COMMON  /FPR/  FPR( 150) 
COMMON  /I/  I 
COMMON  /I NO/  INO(150) 
COMMON  / LO/  L0(10) 

COMMON  /LRU/  LRU (150) 
COMMON  /MRF/  MRF 
REAL  MRF 

COMMON  /MRO/  MRO 
REAL  MRO 
COMMON  /MXI /  MX I 
COMMON  /MXNS/  MXNS 
COMMON  /NHB/  NHB(IO) 

COMMON  / N H I /  NHI (150) 
COMMON  /NRTS/  NRTS(150) 
REAL  NRTS 
COMMON  /NS/  NS 
COMMON  /OFMC/  OFMC 
COMMON  /OFMCA/  0FMCA(150) 
COMMON  /OFMCB/  OFMCB 
COMMON  /OFMCD/  OFMCD 
COMMON  /PIUP/  PIUP 
COMMON  /RIP/  RIP( 150) 
COMMON  /RTS/  RTS (150) 
COMMON  /SR/  SR 
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COMMON  /TCFB/  TCFB 
COMMON  / TC FD /  TCFI) 

COMMON  /TNB/  TNB(IO) 

COMMON  /TR /  TR 
COMMON  /WT/  WT  (  150"! 

COMMON  /XFPR/  XFPR 
REAL  N’HNRT 
REAL  NHRT 
C 
C 

DO  260  I XXX 1  =  1 , MX  1 

i=inouxxxii 

NHRT=0 . 

\HNRT=0 . 

IFf  .NOT.  (LRm  j.EQ.O))  GO  TO  210 
NHRT=RTS(NH.l  (  I  )) 

NHNRT=NRTS  ( NH 1  II)) 

210  CONTINUE 

XF=XFPR-FPR(I) 

DO  250  NS=1 ,MXNS 
SATLRU=0 . 

I F C . NOT . ( BTYPE (NS ) . EQ . 3 . AND . LRU ( I ) . EQ . 1 ) )  GO  TO  220 
SATLRC= 1 . 

220  CONTINUE 

ACFB=(  FLOAT (  LRU  (  I  )  l+NHRT )*(  ( 1 .  +XF ) •■  BCMH ( I )  +RTS ( I )  •■BMH ( I )  )*BMF* 
+  BLR+SATLRU*( 1 . +XF)*2 . *CPPC*WT( I ) 

Tl  =  l  . 

IF ( . NOT. (RI P ( I ) . LT. 0 . 999) )  GO  TO  230 
T 1 =R I P ( I ) / (1 . - R I P ( l ) ) 

230  CONTINUE 

ACFB=ACFB+(T1*MR0+MRF+SR+TR1*BLR 

ACFI1= (FLOAT ( LRU (Ill +NHRT1* ( NRTS ( I )*DMH ( I )*DMF*DLR+ ( 2 . *NRTS (11+ 
+  COM)  ( I )  )*CPPD(  LO  (NS) )  -•■WT  ( I ) )  +NHNRT--  ( 1 .  -  CON’D  (I))  *DMH  ( I )  »VDMF* 

+  DLR 

TCFB= 1 2 . *P I UP*TNB ( NS 1*FA I L( I , NS )*ACFB 

TCFD=12 .  *PIL’P*TNB(NS ;*FAIL(I  ,NS)*ACFD 

OFMCA( I 1=0FMCA( I l+TCFB+TCFD 

OFMCB=OFMCB+TCFB 

OFMCD=OFMCI)+TCFD 

IB=BTYPE(NS) 

1 B 1=3+BPLAT (NS ) 

IFf. NOT. (IB. EQ. 3)1  GO  TO  240 
I  B=2 

I B 1=3+BPLAT(NHB (NS) ) 

240  CONTINUE 

BOFMC ( IB )=BOFMC ( IB 1+TCFB 
BOFMC (I B 1 ) =BOFMC ( I B 1 )+TCFB 
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250  CONTINUE 
260  CONTINUE 

OFMC=OFMCB+OFMCD 

RETURN 

END 


o  6 


SUBROUTINE  COSTS 


.1-  -I-  -L.  JU  -V 


810625  085224863 


c* 

c* 

c 


COMPUTES  SUPPORT  EQUIPMENT  COST  ELEMENT-SEC 
ATU  MOD  SLR  -  27  MAY  80 


******** 


<.  J.J.  J.  J,.>.  J.  X->.  J-X 


BPLAT( 10) 


hSECC ( o  ) 
BSECPi &  ) 
BTYPE ( 10) 


COMMON  /  BP I. AT, 

INTEGER  BPLAT 
COMMON  / BSLCC/ 

COMMON  BSECP/ 

COMMON  / E PY PE / 

INTEGER  BTYPE 
COMMON  /CSK  -  CSF.n.20) 
COMMON  /HUM  ' 

INTEGER  HUM 
COMMON  /!,/  L 
COMMON  MSE 
REAL  MSE 
COMMON  / MX  I  / 

/MXL/ 

,'MXNS 
/NS 


COMMON 
COMMON 
COMMON 
COMMON 
REAL  NSF.B 
COMMON  NS ED 
REAL  NSED 
COMMON  PUT 


DIM 


MSE ( 1201 

MX  I 
MXL 
/  MXNS 
NS 


NSEB  NSEH i  1 2U  ,  1 0 ) 


NSED l  I  20  i 


■ :  up 


COMMON 

'SECHG 

SECBC 

COMMON 

,'SECBp 

SEC  BP 

COMMON 

'SECC  • 

SiiCC 

COMMON 

,'SECDC 

SECDC 

COMMON 

.  SECDP 

secdp 

COMMON 

/SEC  1C, 

SECIC 

COMMON 

/SEC  I  1  , 

SEC  I  I 

COMMON 

.'SEC  IP 

SEi.TP 

COMMON 

,  SECP' 

SECP 

COMMON 

■•'SECR. 

SECR 

COMMON 

/ SECRC / 

SECRC 

COMMON 

/ SECRP 

SECRP 

COMMON 

,  SEPC 

SEDC 

COMMON 

/ SEDV, 

SUIN' (  i: 

COMMON 

Si.  I  No. 

SEINE 

INTEGER 

SE1.N0 

COMMON 

SEPC 

SEPC 

COMMON 

INTEGER 


SETYPE 

SETYPE 


SETYPE ( 120) 
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j££ 


'c-Ji 


o  o 


COMMON  /TNB/  TNB(IO) 
COMMON  /TSEC/  TSEC 
COMMON  /Tl-’CTDC/  Tl'CTDC 
INTEGER  Dl'MM 


DO  220  1 XXX 1=1 ,MXL 
L=SEINO ( I XXXI ) 

TEMO 1=0 . 

DO  210  NS=1,MXNS 

TEMO  1  =TEM0 1 + ( NSEB ( L , NS )  ""TNB  (NS ) ) 

210  CONTINUE 

SEPC= ( TEMO 1+NSED ( L) )*CSE(L)*( 1 . +PIUP*MSE(L) )+SEPC 
SEDC=SEDC+SF.DV  ( L) 

220  CONTINUE 

SEDC=SEDC+TUCTDC 
TSEC=SEPC+SEDC 
DO  350  I XXX 1  =  1 ,MXL 
L=SE I NO ( I XXX 1 ) 

DO  230  NS= 1 ,MXNS 

TCSEL=NSEB(  L , NS )  ■'••TNB  (NS ) *CSE (LI 
SEC  I I=SEC I I+TCSEL 
SECR=SECR+TCSEL*PIUP*MSE(L) 

230  CONTINUE 

SECR=SECR+NSED(L)'"CSE  (L)*PIUP,VMSE  (.L) 

TEM02=0. 

DO  240  NS=1 , MXNS 

TEM02=TEM02+NSEB  ( L,NS)*TNB  (NS ) 

240  CONTINUE 

SUMM=TEM02 

I F ( . NOT . ( SETYPE (LI . NE . 3 ) )  GO  TO  290 

SECDC=SECDC+NSED(L)*CSE(L)*( 1 . +PIUP*MSE(L) ) 

SEC  I C=SEC 1 C+ ( SUMM+NSED ( L ) )*CSE(L) 

SF.CRC=SECRC+  ( SUMM+NSED  ( L) ) *CSE  ( L ) * P I U P*M S E  ( L) 

DO  2b0  Dl'M=  1 , 3 
TEM03=0. 

DO  250  NS=1 ,MXNS 

IF ( .NOT. (BTYPE(NS) .EQ.DUM))  GO  TO  250 
TEMO  3=TEM0  3+NSE  B ( L , NS ) *TNB ( NS ) 

250  CONTINUE 

BSF.CC  (DUM  )=BSECC(DUM  )  +  (TEM03)'vCSE  (L)*(  1  .  +PIUP--MSE  ( L) ) 
260  CONTINUE 

DO  280  DUM=4 , 6 
Dl.'M=DUM-3 
TEMO  '*=0  . 

DO  270  NS=1 , MXNS 

I F (  .NOT.  (BPLAT(NS)  .F.Q.DUMM)  )  GO  TO  270 
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TEM04=TEM04+NSEB  ( L ,  NS  )*TN’B  (NS  ) 

270  COST  1  SUE 

BSKCC (  DIM  )  =BSECC  ( DUM )  +  (TEM04 )  *CSE ( L )* ( 1 .  +PIUP* MSE  (L) ) 
280  CONTINUE 

290  CONTINUE 

IF ( . NOT . I SETYPE ( L) .  EQ . 3 ) )  GO  TO  340 
SEC  I  F-SKG I  P-  I  Sl'MM+NSED  (  L  )  )*CSE  (  L) 

SECkP=SECkP+  ( SUMM+NSED (  L )  )*CSE  (  L)*PI UP*MSE  ( L) 
SECnP=SECI)P+  (  NSEIH  L  )*CSE  (  L  )*  (  1  .  +PIUP*MSE  ( L)  1 ) 

1)0  310  !)!.  N=  1  ,  8 
TEM05=r> . 

DO  300  NS- 1 , MXNS 

I  *'  i  .  N>  T .  '  HTYPE  (  NS  )  .  EQ  .  DIM  )  )  GOTO  300 
TEMO')~TEM-.  +NSER  (  1..NS  )*TSB(SS) 

300  CONTINUE 

BSECPf  DUM )=bSECPi DUM )+TEM05*CSE(L)*(l .+PIUP*MSElL) ) 
310  CONTINUE 

DO  3  30  DUM=-.  ,  3 
DUMM=DL  M -  3 
TEM0o=0 . 

DO  320  NS= 1 , MXNS 

I  F  (  .  NOT.  (  B  PLAT  (NS  ) .  EQ.  DL'MM) )  GO  TO  320 
TEMO  6 =TE M  0  r> +NS E  B ( L, NS )*TNB (NS) 

320  CONTINUE 

BSKGI  ( DUM )=BSECP ( DUM I  +  (TEM06 )*CSE (L)* ( 1 . +PIUP*MSE ( L) ) 
330  CONTINUE 

340  CONTINUE 
350  CONTINUE 
TEM07 =0 . 

DO  3  60  !)UM=I  ,3 

TEM0'=TKM07+PSKCC  ( DUM ) 

360  CONTINUE 

SECBC=TEM07 
TEM08=0 . 

DO  3  70  I)UM=  1  .  3 

TEM0H=TEM08+BSKCP ( DUM ) 

370  CONTINUE 

SECBP=TEM08 
SEC  I I=SECI I+SEDC 
SECC=SEC I C+SECkC 
SEC?=SEC1 P+SECRP 

RETURN 

ENT) 


SUBROUTINE  COST9 


C- 

c* 

c* 

c 


810625  085237027 


COMPUTES  ITEM  INVENTORY  MANAGEMENT 
COST  ELEMENT- 1 1 MC 


COMMON  / B I IMC/  B 1 1 MC ( 6 ) 

COMMON  /  BPLAT/  BPLAT (  10) 

INTEGER  BPLAT 

COMMON  /BTYPE/  BTYPE(IO) 

INTEGER  BTYPE 

COMMON  /CON'D/  CONI) (150) 

COMMON  /FAIL/  FAIL(150,10) 

COMMON  / I /  I 

COMMON  / l IMC/  I IMC 

REAL  I IMC 

COMMON  / 1 1 MCA/  IIMCAC150) 
REAL  I  I  MCA 

COMMON  /I  IMCB/  IIMCB 
REAL  IIMCB 

COMMON  IIMCD/  IIMCD 
REAL  IIMCD 
COMMON  /II  MCI/  1 1  MCI 
REAL  I IMC I 

COMMON  /TIMOR/  I  IMCR 
REAL  I  I  MLR 
COMMON  /IMC/  IMC 
REAL  IMC 

COMMON  /I NO,  1  NO (150) 
COMMON  /LRU/  LRU (150) 
COMMON  / MX I /  MX1 
COMMON  ,/MXNS/  MXNS 
COMMON  / NFB  N F B ( 150, 10) 
REAL  NFB 

COMMON  /Nil I  /  NHK150) 
COMMON  /NS  '  NS 
COMMON  /PA/  PA (150) 

COMMON  /PIUP/  PI  UP 
COMMON  /RMC/  RMC 
COMMON  /RTS/  RTS (150) 
COMMON  /SA/  SA 
COMMON  /SAT/  SAT(IO) 
COMMON  / TNB /  TNB(IO) 

REAL  IUT 
REAL  NIICD 
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c 


COMMON 

A-  A<  150,4,3) 

i NTEGER 

A 

COMMON 

/  AC  Pi’ 

ACPP 

COMMON 

BOAT  A 

HUATA 

i NTEGER 

“DATA 

COMMON 

■  BT  DC 

BTDC ' 10) 

COMMON 

■ BTYPE  ’ 

HTYPE(IO) 

INTEGER 

BTYPF. 

COMMON 

.  DATAB/ 

DATAB ( 150) 

INTEGER 

DATAB 

COMMON 

./DAT  All/ 

DATAD (150  ) 

INTEGER 

DATAD 

COMMON 

DATAS 

DATAS (120) 

INTEGER 

DATAS 

COMMON 

,  DDATA 

DDATA 

I  NTEGER 

DDATA 

COMMON 

EBCB  I  / 

EBCB 1(150, 10) 

COMMON 

/ERHAB/ 

ERHAB ( 120,10) 

COMMON 

/EkHAI), 

ER11ADI  120) 

COMMON 

/ERHD/ 

EKHD ( 150) 

COMMON 

/'ERTB I  / 

ERTB I ( 150,10) 

COMMON 

/ 1  /  I 

COMMON 

/  I  NO  /  x 

son  501 

COMMON 

/  IRM1N/ 

IRMINl 150,4) 

COMMON 

/ ! RMT/ 

I  KMT 

COMMON 

/L /  L 

COMMON 

/IT,  LT 

COMMON 

/MX I  -  MXI 

COMMON 

/MX  I RMT 

'/  MX  I  RMT 

COMMON 

/MXL/  MXI, 

COMMON 

'MX'LT/ 

MXLT 

COMMON 

/MXNS/ 

MXNS 

;  COMMON  /NJA/  N.JA(  150,4) 

1  COMMON  / NRM /  NRM( 150) 

I  COMMON  /NS/  NS 

COMMON  ,/NSEB/  NSEB(120,10) 
REAL  NSEB 

COMMON  /NSED/  NSED( 120) 

REAL  NSED 

|  COMMON  /OFMC/  OFMC 

,  141 

,1 

I 


[ 


COMMON  . Or. MCA/  OKMOAI  I  SO / 
COMMON  'ONNC.  ONMC 
COMMON  /ON MCA  '  ONMCM1S0) 
COMMON  .'rilT '  I’HT 
COMM1  )N  /  PI’SF.  ri’SF.  (  i  SO  ,1201 
COMMON  -QSA  (ISA  ■■  ISO,  A  ,  3  ) 
COMMON  '  RC  ?'!’  KCi’P 
COMMON  /KM  KM  I  ■  1  SO  ,  10  ) 
INTEGER  KM  I 

COMMON  SKIN:  SKl\n(l20) 
1NTKGF.K  Si,  IN' ) 

COMMON  SF.TDG  ■  SETDCI  120) 
COMMON  ST!)C  ST!  HI 
COMMON  STDC !  STDC! 

COMMON  STOCK  STOCK 

common  "o'! '  t;  i  so  > 

COMMON  TAB  TNB(IO) 

COMMON  TASK  TNSK i 120 ) 
COMMON  I'l.'l’l’  TCI’ I’ 

I NTEGER  SKCD1 
DIMENSION  SF.COUE;  120) 
DIMENSION  SUM ( 1 20 ) 
DIMENSION  TEKHAR ( 120 ! 
DIMENSION  TOSA: 120 ) 


SCM j=0 . 

Sl/M  2=1,' , 

TEKM2=0. 

DO  _ SO  : XXX 1=1. MXK 
! -Si:  1  Nt  • ;  1  XXX  1  ) 

TEAM  1=0. 

DO  210  N S  — i  ,  MXNS 

IK:  .NOT,  (  BTVPElNS  I  ,F,g.  1  1)  GO  TO  210 
TF.MO  1  =T1'.M0  1 +TN BINS) -•■NSEB  (  L ,  NS ) 

10  CONTI  NI  K 
T)=TEM01 
TF.M02=0, 

DO  220  NS= 1 , MXNS 

1  IT  . NOT . ( BTYFK i NS  ] . EQ . 2 )  )  GO  TO  220 
T E M 0 2  =TF, M 0 2  +TN B  t  N S  )  NSEB  ( I. ,  NS  ) 

20  CONTI NCK 
T2=TEM02 

T'=T1  +T2  f-NSEI)(  i,  I 
TF.MO  1=0  . 

DO  2 00  NS= 1 , MXNS 

TEMu:.=TEMm  (+NSEB(  L,NS) 
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230  CONTINUE 

TNSE ( L1=TEM03+NSED(L) 

SUM3=SUM3+U  CTNSE  ( L)  )-'-'FLOAT(DATAS  ( L) ) 

TEM04=0 . 

DO  240  NS=1 , MXNS 

TEM04=TEM04+TNB (NS)*U (NSEB (L,NS) ) 

240  CONTINUE 

SETDC (L)=U  (T7  FLOAT  (DATAS  (L)  )*(ACPP+RCPP+(PIUP- 1 .  )*UCPP)+RCPP 
+  TEM04*FL0AT ( DATAS ( L) ) 

250  CONTINUE 

DO  260  I XXXI -I ,  MX1 
1=1. NO (I XXXI) 

Sl’M2=SUM2+ ( FLOAT ( DATAD ( I ) ) +FLOAT (DATAB ( I ) ) ) 

260  CONTINUE 

TERM l  =  (FT.OAT(DI)ATA+BDATA)+SUM2+SUM3)*(ACPP+RCPP+(PIUP- 1 .  )*UCPP) 
DO  290  NS=1,MXNS 
TEM05=0. 

DO  270  IXXX2=I , MX I 
I = I N 0 ( IXXX2 ) 

TEM05=TEM05+FLGAT(DATAB ( I ) ) 

270  CONTINUE 
TEM06=0 . 

DO  280  IXXX2=1 ,MXL 
L=SEIN0(1XXX2) 

TEM06=TEM06+U  ( NSEB  ( L ,  NS  )  ) ‘"FLOAT  ( DATAS  ( L)  ) 

280  CONTINUE 

BTDC I  NS  l=TNB  (  NS  ) * (FLOAT (BDATA)+TEM05+TEM06)*RCPP 
TERM2=TERM2+BTDC (NS) 

290  CONTINUE 

STDC=TERM 1 +TERM2 

STDCI=STDC- ( FLOAT ( DDATA+BDATA )+SUM2+SL'M3 )* (PIUP- 1 . )*UCPP 
STDCR=STDC - STDC I 
C 

C . CALCULATE  TDC(I) 

DO  460  IXXX1=1 , MXI 
I  =  I  NO ( I XXXI ) 

PPTM= f  ONMCA ( I j  +OFMCA ( II ) / ( ONMC+OFMC ) 

DO  310  IXXX2=1 , MXL 
L=S E I NO ( I XXX2 ) 

TEM07=0 . 

DO  300  NS=1 ,MXNS 

TEMO  7=TF,M0  7+TNB  (NS  )*ERHAB  ( L ,  NS ) 

300  CONTINUE 

TERHAB ( L ) =TEMO  7 
SECODE (L)=0 . 

SUM  ( I,)=0 . 

TQSAf L)=0 . 


,  i 
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ppsKf  i 
310  CONTINUE 

nxx\i=nrm(  ;  > 

in.  not  .  <  \>;.\x ;  gt .  o )  y  go  to  400 
no  380  !  kMT=  1  ,  MX  ’  KMT 

IF  (  .  NOT .  i  i  RMT  .  LE  .  NXXX  1 ) )  GOTO  390 
NXXX.!=X  )A(  1  ,  1  KMT  j 
1 F I  . NOT .  f NXXX2 . GT . 0 ) )  GO  TO  370 
1)0  3 5<-  LT=1,MXLT 

1  F  i  S  )T.  i  I.T .  !,F, .  NXXX2  ) )  GO  TO  360 
i A  l  i  .  I  KMT  ,  i,T  ) 

IF.  NT  '  i  KM  !  M  I  ,  IRMT)  .  F.Q  .  1 )  )  GOTO  320 
6KO)  =  3*  I  NT!  QSAf  1  .  IRMT .  LT)  /  100  .  ) 

so. i  .-floatiskcdi ) 

tosa;  tsai  ; .  r  i:mt  .  m  j  -  a  i  st(qsa  (  i  ,  i  rmt  ,  lt)  /  i  oo .  )•••  ioo 


320 

CON 

tin;  k 

DO 

340  NS=1 , MXNS 

I 

Fi  .NOT.  (  IKMINH  ,  IRMT)  .  F.Q .  RMI  ( I ,  NS)  )  )  GO  TO  330 
ri'.)SVi=;>SA  >  !  ,  I  k  MT ,  I  .T  j  -  A I  NT  ( QS  A  ( I ,  IRMT,  LT)/ 100  . 
SF.CF.  :  =  (  !  NT <  QSA (  I  ,  1  RMT  ,  LT)  /TOO  .  )  -  1 ) 

ST1--IM  FLOAT i  SF.CD1  )  )*TNB(SS)*EBCBI(  I  ,NS) 

SF.CD  1  ~  <  3 -  1  NT (  U.3  A  (  I  ,  I  KMT ,  LT)  /  1  00  .  )  )*INT(QSA ( I  , 

+ 

FT), TOO.  i 

«72=.l  FLOAT!  SF.CD1  )  i  -'TNB  (  NS  )*ERTB  I  (  I  ,NS) 

SUM (  !.  1-SUM; LHU(TQSA1)*(ST1+ST2) 

330 

i; 

340 

c,{)\ 

T1NUF. 

350 

CON"!  1 

Nil. 

360 

,;ovr  ! 

V 

370 

COST! V 

\' 

380 

CON r; NCR 

390 

CONI  I  XI  K 

400 

CON'!  INI  F. 

DO  4  2'J  !XXX 

.CNF 

L=SE  i  NO(  ! 

'nXX2  ) 

T8-KRHAD ' 

LHTF.kF.ABf  I.) 

!F( . NOT. ; 

TS  .  GF, .  0 . 00000 1)  1  GO  TO  410 

1'i'SK;  ;  . 

TQSA (  L  !  )*U ( SECODE ( L)  )*ERHD ( I )  +SUM (L) )  /Tfi 

410 

GONTINCK 

420 

Conti nuf 
TEM08=0 . 

DO  430  ! XXX 

2=1  ,  MX!. 

L=SEi Me  i 

XXX 2  ) 

TKM08-TF.M 

C  N+FFSEI  I  ,  L  ) F LO AT ( DATA S ( L ) ) 

430 

CONTI  NCF. 

tf.m  ;  0=0 . 

DO  4*>()  \ 

,  MXNS 

1  44 


TEM09=0. 

DO  440  IXXX3=1 ,MXL 
L=SEIN0(IXXX3) 

TEM09=TEM09+PPSE ( I , L)*U (NSEB ( L , NS ) ) *F  LO AT ( DATAS ( L ) ) 

440  CONTINUE 

TEM 1 0=TEM  10+TNB  (NS ) *  ( PPTM*FLOAT  ( BDATA )  +FLOAT  ( DATAB  ( I ) )  +TE.M09  ) 
450  CONTINUE 

TDC (I )=(PPTM*FLOAT(DDATA+BDATA)+FLOAT(DATAD(I ) )+FLOAT( DATAB ( I ) )+ 
+  TEM08)*(ACPP+RCPP+(PIUP- 1 . )*UCPP)+RCPP*TEM10 

460  CONTINUE 

RETURN 

END 
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SUBROUTINE  COST!) 


C  810625  085349160 


CALCULATES  MAINTENANCE  TRAINING  COST  -  MTRC 


COMMON  / BMTRC /  BMTRC 

COMMON  /CONI)/  CONI) (150) 

COMMON  /CPIU/  CPD1 

COMMON  /CPD2/  C!’02 

COMMON  /DMTRC.  DMTRC 

COMMON  /KRTDI  '  ERTBI ( 150 , 10) 

COMMON  /Ill’ll  1/  ill’ll  1 

INTEGER  HP111 

COMMON  /HPI)2  HIM) 2 

INTEGER  Hl‘U2 

COMMON  /I;  I 

COMMON  '  I MTKC  I  MTRC 

RE  A  I,  I  MTRC 

COMMON  /  I NO/  1  NO t  150) 

COMMON  /MTRC/  MTRC 
REAL  MTRC 

COMMON  /MTRC!'  MTRC 1(150) 
REAL  MTRC I 
COMMON  /MNP  MX! 

COMMON  ,/MXNP  •'  MXN1’ 

COMMON  /MX NS  ’  MX.N.S 
COMMON  /N1TF.M/  N  ITEM  -150,3) 
REAL  NITEM 
COMMON  /NP/  NE 
COMMON  /NS/  NS 
COMMON  /PALI/  PALI 
COMMON  ,'PAP’R  PA1.2H 
COMMON  /PAL2D  PAi.21) 

COMMON  /PIC!’  PUP 
COMMON  /0TYP1,  (/PYPl 
INTEGER  OTYP1 
COMMON  /QTYP2B  •  )TYP2B 
INTEGER  0TYP2B 
COMMON  /i)TYP2I>-'  C'TYI’21) 
INTEGER  0TYP2D 
COMMON  /RMTRC  •  h’MTRC 
COMMON  'SPC !  SPC1 
INTEGER  SPC! 

COMMON  SPC.!  '  SPC 2 
INTEGER  SPC 2 
COMMON  /TEEM,  TEEM 


COMMON  /TIME1/  T1ME1(150) 

INTEGER  TIME1 

COMMON  /TORB/  TORB 

COMMON  /TORD/  TORD 

COMMON  /TRAVB/  TRAVB 

COMMON  /TRAV1D/  TRAV1D 

COMMON  /TYP2TF /  TYP2TF 

COMMON  /T2BA/  T2BA 

COMMON  /T2DA/  T2DA 

REAL  ITPF1 

REAL  ITPF2 

REAL  ITPF3 

REAL  ITPF4 

REAL  ITPF5 

REAL  N I  USED 


NIUSED=0 
TEMP  1=0 
T1=0 . 

T2DA=0 . 

T2BA=0 . 

DO  220  l XXX 1=1, MX I 
1  =  1  NO ( [XXXI ) 

T1=T1+T1ME1 ( I 1 

T2DA=TI  ME  1  i.  I  )*T(  1  -CONL)  ( I  )  )+T2DA 
TEMO  3  =0 . 

DO  210  NS=1 , MXNS 

TEMO 1 =TEMO 1 +ERTB I ( I , NS ) 

10  CONTI  NIT. 

TEMP=TKM01 

T2BA=T2BA+T  I  ME  1  (  1  )*T  ( TEMP  ) 

20  CONTINUE 

T2I)A=T21)A*TYP2TK 
T2BA=T2B  A*TY P  2  TF 

TEM1’=  ( T2DA*QTYP2D*  (  1  .  +  (  PIUP-1  .  )*TORD)+T2BA*QTYP2B*(  1 . +( PIl'P- 1  .  )* 
+  TORB  )  )  /  ( IIPD2*SPC2  ) 

I  MTKC=A  I  NT (  ( T  2 1 )  A  *QT Y  P2  D+T2  B A  *QTY' P2 B )  /  ( HPD2--SPC2  )+  .  9  )*CPD2+QTYP2D 
+  (  A !  NT  (  T2 DA !i !  ’!) 2  .  9  )  •••■  PA  L2 D+TR A V 1  D*U  f  T2  DA ) )  +QTY P 2 B*  ( A I  NT  ( T 2  B  A / 

+  HPD2+. 9 )*PA1.2B+TKAVB''T(T2BA ) l+TEFM 
MTKC=A I  NT ( TEMP4- . 9 )*CPD2+( 1 . +(P1UP- 1 . 1 *TORD ) *QTY P 2D* ( A I  NT ( T2 D A / 

+  HPD2+.9  )•'•' PA  L2D+ Ik  AY  1  D-'-'C  (  T2DA 1 )  +  ( 1  XPIFP-l  .  V-'-TORB  )*QTYP2B-: 

+  l  A  INI' (T2 BA  I1PD2+  .  9  )  ••  PAL2B+TRAVB*C (T2BA1  l+TEFM 
IF(  .NOT. ( iHPDl .GT. 0.0000 1)  .AND. (SPC1 .GT. 0.00001  11  1  GO  TO  230 
MTKC=MTRC+A  I  NT  ( T 1  /HPI)  1  +  .  9  )*A  I  NT(  QTYP 1  /  SPC 1  +  .  9  V'-CPD  1  +  QTY  PI* 

*  f  AINT(Tl  /HPDl  +  .9  )*PA1, 1 +TRAV ll)*l'( T1  )  ) 

1 MTKG= I MTRC+A I  NT (T 1 / HPD 1 + . 9 1*A I  NT ( QTYP 1 /SPC 1  +  . 9 ) *CPD 1 +QTYP 1  * 


+  ( A I  ST  (T 1  /HPD1+  .  9  FAL 1  +TRAV1D*U  CT1 ) ) 

230  CONTINUE 

RMTRC=MTRC - 1 MTRC 
BMTRC=0 . 

T2=QTY  P2D*T2DA+QTY  P2  B*T2BA 
I F ( . NOT . < T2 . GE . 0 . 00000 1) )  GO  TO  240 

BMTRC=(  OTYP2Bv'T2BA)/T2*AINT(TEMP+.  9)*CPD2+(  l.  +  (PIUP-l .  )-'TORB  ) 
+  (JTYP2B* : A 1  NT  ( T2  B A / HPD2+ . 9 )*PAL2B+TRAVB*U (T2BA) ) 

240  CONTINUE 

DMTRC=MTRC  -  BMTRC 
DO  270  1 XXX 1=1, MSI 
1  =  i NO !  I  XXXI  ) 

ti:m'12=o  . 

DO  25u  NP  =  i  , MXNP 

TH M f ’ 2  ~  2E M ( : 2  +N 1  TEN (  I  ,NP) 

250  CONTINUE 

TEMP ! =TKM02 

IF( .NOT. 'TEMPI .GT.OJ)  GO  TO  260 
SIUSF.I)=NIUSF.P+  t  . 

260  CONTINUE 
270  CONTINUE 

DO  380  ! XXX 1  =  1 , MX  I 
1  =  1  NO  1. 1 XXX!  ; 
iTPn=o. 

ITPF2=0 . 

ITFF3=0 . 

ITPF4 =0. 

ITPF5=0 . 

TEMO 3=0 . 

DO  280  NP= i . MXNP 

TF.MO 3=TF.M' 1  5+N  1  TF.M  (  l  ,  .NP  i 
280  COST  i  NIK 

TEMP  I  =TEMr' s 

IF l  .NOT  IT’  .CT.O.OOOnon  )  GO  TO  290 
I TPF 1 =T I  ME ! ! i  )  ' T 1 
290  CONTINUE 
TEMO 4=0 . 

DO  300  NS=I , MXNS 

TEM  04=TE  MO**  +K  RTB  I  (  I  .NS) 

300  CONTINUE 

TKMP=TF,M04 

T2=QT  Y  P  2  D'-’-'F .:  DA+QTYP2  B  *  T  2  B  A 
I F I  . NOT . 1 T2 . GE . 0 . 00000  1))  GO  TO  310 

I TPF2=TYP2TF"T I  ME  1 ( I )* ( QTYP2D-  U ( 1 . -CONDl I  i  )+QTYP2B*U (TEMPI ) 
+  1  .  T2 

310  CONTINUE 

IF!  .NOT.  ;T2l)A.GK.O  000001)  1  GO  TO  320 


ITPF3=TYP2TF*TI ME  1 ( l )*U( 1 . -COND( I ) ) /T2DA 
320  CONTINUE 

IF ( . NOT. (T2BA.GE. 0.000001))  GO  TO  330 
ITPF  4=TYP2TF*T I ME  1 ( I )*U(TEMP)/T2BA 
330  CONTINUE 

T3=QTYP 1 *T 1 +QTYP2D* T2DA+QTYP2  B  •'T2BA 
ITPF5=I/NIUSED 

IF ( .NOT. ( (T3.LE. 0.000001 ) .OR. (T1 . LE . 0 . 000001 ) ))  GO  TO  350 
IF ( .NOT. (TEMPI . LT. 0.000001 ) )  GO  TO  340 
ITPF5=0 . 

340  CONTINUE 
350  CONTINUE 

IF(. NOT. ((T3.GT. 0.000001). AND. (Tl.GT. 0.000001)))  GO  TO  360 
ITPF5=TIME 1 ! I )* ( QTYP1+TYP2TF* (QTYP2D*U ( 1 . -COND(I ) )+QTYP2B* 

+  U(TF.MP) )  )*  1  .  /T3 

360  CONTINUE 

TE  M  P=  ( T2  D  A  "QT  Y  P  2 1 )  -v  (  1  .  +  (  PIUP-1  .  )  *TORD )  +T2  BA*  QTYP2  B*  (1  .  +  ( P I  UP  -  1  .  )* 
+  TORB )  )*  1  .  /  (  HP02'-'rEPC2  I 

TERM  1=0. 

IF( .NOT. ( (HPl)l .GT. 0.00001 ) .AND. (SPC1 .GT. 0.00001) ))  GO  TO  370 
TERM  1  =  I TPF 1  *  t  A  I  NT  ( T 1  /  H  PD  1+  .  9  )  *  A I  NT  (QTYP1/SPC 1+ .  9 )  •■CPD 1 +QTYP 1  * 

+  ( AINTITI  /HP!) )  + .  9  t* PALI  +TRAV 1  D*U (T1 )  ) ) 

370  CONTINUE 

TERM2= ITPF2*A I  NT ( TKMP+ . 9 )*CPD2 

TERM3=ITPF3*( 1 .+(P1UP-1 . )*TORD )*QTYP2D*(AINT(T2DA/HPD2+ . 9 !* 

+  PAL2P+TRAV1I)-T(T2DA )  i 

TERM4=  ITPF4*(  1  ,-mPIL'P-I  .  I-TORB  )*QTYP2B*(AINT(T2BA/HPI)2+  .  9  )* 

+  PAL2H+TRAYB*l(T2BAn 

TERM5= I TPF5*TEFM 

MTRCI  ■  I  i -TERM  1  +TF.RM2+TKRM3+TKRM4+TERM5 
380  CONTiNl'E 

RETURN 

END 


I  4 ') 


FUNCTION  CHLCC(CC,CK.CN.  I ) 


810625  085415469 

ATL'  MOD  SLR  -  20  MAY  80 

COMPUTES  CHANGE  IN  LCC  FOR  REPAIR  LEVEL  SENSITIVITY  * 


COMMON  /A/  A( 150,4,3) 

INTEGER  A 
COMMON  /B  B 
INTEGER  B 
COMMON  /BAA,/  BAA 
COMMON  /  BCMH  /  BCMHU50) 

COMMON  /BLR/  BLR 
COMMON  / BMF/  BMF 
COMMON  / BMH/  BMHi.50) 

COMMON  /BRCT/  BRCT 
COMMON  /BTYPE  BTYPE(IO) 
INTEGER  BTYPE 
COMMON  /C IMF/  CIMF(IO) 

COMMON  /CON'D/  COND(150) 

COMMON  /CP PD/  CPPD ( 3 ) 

COMMON  /CRCT/  CRCT 
COMMON  /CSE/  CSE (120) 

COMMON  /DAA/  DAA 
COMMON  /DAD/  DAD 
COMMON  /DI,R/  DLR 
COMMON  / DMF /  DMF 
COMMON  /DMH/  DMH (150) 

COMMON  ,  DRCT  DRCTCi  ) 

COMMON  F.KHAB  ERHAB  (  120 , 10  ) 
COMMON  / ERHAI)/  ERHADM.20) 
COMMON  /  FAIL.  FAI  I,t  1  50 , 10  ) 
COMMON  FPR/  FI’R  (  1  50  ) 

COMMON  /HDWKIT-  HPWKn\150,5) 
COMMON  1RMIN  I RM I N i 150,4) 
COMMON  I  KMT  I  KMT 
COMMON  1  SC A  1  SC A (  I  50  ) 

REAL  ISCA 

COMMON  ! SET,  I  SET (120.10) 
REAL  1  SET 

COMMON  I SETD  I  SETH i  1201 
REAL  I SETD 
COMMON  I,/  I, 

COMMON  /LO.  LO l 10) 

COMMON  LR1  ,  LRU (  1 50 ) 

COMMON  'IT,  IT 


150 


COMMON'  /MSE/  MSE  C  120  J 
REAL  MSE 

COMMON  MXIRMT  MX 1  KMT 
COMMON  ,'MXL/  MX!, 

COMMON  / MXLT/  MXLT 
COMMON  / MXNP/  MXNT 
COMMON  / MXNS /  MXNS 
COMMON  /NBC  '  NBC (10) 

REAL  NBC 

COMMON  NEB/  NEB;  ISO, 10) 
REAL  NFS! 

COMMON  NED/  NFDllSO) 

REAL  NK1) 

COMMON  NrlB/  NHB(IO) 

COMMON  Nil  I  /  Nil!  1  150) 

COMMON  N i TEM /  N ! TEM (150,5) 
REAL  N 1 TEM 

COMMON  NMA/  SJAt  150,4) 
COMMON  N!>/  NT 
COMMON  NRM,  NRM 1  ISO) 

COMMON  NRTS ,  NRTS (150) 

REAL  NRTS 

COMMON  N'RCC  NK'OC 

REAL  NRl'C 

COMMON  NS/  NS 

COMMON  / NSEB '  NSEIu  i 20 , 1 0 ) 

kEAL  NSEB 

COMMON  /  NS  El)/  NSEI)  (  120) 

REAL  NSEf) 

COMMON  / (1ST /  OST('i) 

COMMON  /PA.'  PA  (ISO) 

COMMON  /  P  ( UP/  Fill' 

COMMON  / OSA /  ()SA  '  1  S 0 , 4 , 3) 
COMMON  /RM/  RM(ISO) 

COMMON  /RM I /  R Ml, 150,10) 
INTEGER  RM 1 

COMMON  ,/RSCA/  RSCAilSO) 
COMMON  /  KTS  /  RTS i !50i 
COMMON  /SA/  SA 
COMMON  /SAT  SAT t 10) 

COMMON  '  SE I  NO/  SE1N01120) 
INTEGER  SE [NO 
COMMON  / TN B /  TNH(IO) 
common  ,/Torr/  Tori’(S) 

COMMON  /IT/  CP( ISO) 

COMMON  / CSE/  l  SE I  1 20 , 1 0 ) 
COMMON  /IS ED/'  I  SE!) (120) 
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COMMON  ,'WT/  WT  (150) 

COMMON  /XKPR/  XF PR 
COMMON  /XITEMQ/  xrTEMQUSO) 

COMMON  / XUC/  XUC 
01  MEN? [ON  CHSE ( 120.10) 

1H  MENS' [ON  COSED;  12:>i 
DIMENSION  CNEE ;  10  i 
DIMENSION  CPE i ; o ; 

DIMENSION  CRH i 10) 

REAL  NH.NET 
REAL  NHK’T 
C 

c 

c 

C .  CAI.cn,  ATF.S  CRH  (NS)  .CHIU) 

NHRT=0 . 

NHNRT=0 . 

IEI  .NOT. iNHl I  I  )  .NE.O)  )  GO  TO  210 
NHRT=KTS (  Ml  I  I  1  )  ) 

NHNRT=NRTS ( NH I ( I ) ') 

210  CONTINUE 

DO  240  NS= 1 , MXNS 
CRH ( NS  i=0 . 

1  F  (  .  NOT  .  i  BTYI’H  i  NS  !  .  NE  .  3  )  )  GO  TO  230 
TEM'J  1=0  . 

DC'  22o  H=1  ,MNNS 

I  F ;  . NOT . i NHE : H > . EQ . NS ) )  GO  TO  220 
TKM'"1  i  =TEMO  1 +i'A  1 1,(  I  .1)  )*NHC(B) 

220  CONTINUE 

CKtO  NS  >=UAI  L;  !  .NS  >*. FLOAT!  LRU!  I  )  )+SHRT)*CK*BMH<  1  V-'BMK+C  IMF  >  NS 
+  -TKMOD"  FI.. 'AT'  l.Ri  i  1  )  )+SHRT)*l  ( CR+CN+U  t  XITR-T'PR  (  1  1  t*CC  i* 

+  HCMH  (  1  i  ■‘■CK-'-'BMH  (  i  i  )*BMF 

230  CONTINUE 
240  CONTINUE 
TEM02=0 . 

DC  2)0  NS-!, MXNS 

TEM02=TEM0s+FAl El  I  ,NS :  -TNBiNS ) 

230  CONTINUE 

CRHD=TF.M0  2';' (  ( i'i.oATi  ERU(  I  )  )  +NHRT ) *CN'-NHNRT*CC )*DMH ( I ) *DMF 
C 

C .  CALCULATES  CHSElE.NS)  AND  CHSED(L) 

DO  2  70  1  XXX  1  =  1,  MX  I. 

I.=SE  !  N0(  I XXX!  i 
CHSF.Dl  I.  )=0 . 

DO  J.hi)  NS—  i  ,  MXNS 
CHSE ( E.NS )-0 . 

2hO  CONTINUE 


2  70  roNTINt'K 

IK  -20  NS-l.MXNS 
NXXX  1  =NKM  (  1  : 

IF  \  SXXX!  .CTO)  i  00  TO  410 

o  :  kxt  :  ,‘‘.x:kmt 

\  :  :km:  1.1:  nxxxiii  go  to  400 

wxx.-\a 

X  :  NXXX2.GT.0l  I  GO  TO  380 

:  • :  .v,a:.t 

\  :  :t  \xxx2  i ;  go  to  370 


: K-;s,  : . IKMT)  .KQ.KMI (I ,NS)) )  GO  10  280 

. “ a  : .  :kxt,:.T'-aint(QSA(i  ,  ihmt,lt)/ioo.  )*ioo. 

h •;  XS  ■  GT.  .  000001  )  )  GO  TO  290 
.  .NS  -  <r. !  1. .  NS  >  *  i  CRH  c  NS )  /  BAA )  *AMAX  1  ( I  SET  ( L ,  NS  1 , 


N  :  CRH  NS  ).  I.T.  -  .000001  ))  GO  TO  310 
• ■  N  r. . KKHABiL.SS) .GT. . 000001 .OR .ERHAB (L, NS) . LT. 
-  -  .VO  In  GO  TO  300 

•  •••Si:.  I,. NS  '=CRHi  NS  ) ,  F.RHAB  (  L  ,NS  )*NSEB  (L,NS ) 

U i  ■  N  T  I  NI  K 

V,. •  gontinu; 

Ti,'SA=0  . 

IF:  . NOT . i  1RM1NI I , 1  KMT  i  . EQ . 1 ) )  GO  TO  320 

TOSA=Q.SAt  I  ,  I  KMT ,  I.T  I  -  A  I  NT ( QSA(  1  ,  IRMT,  LT)  /  1 00  .  )*100. 
320  CONTI NGE 

lFl .NOT. iCRim.GT. .000001))  GO  TO  330 
CHSF.L  ( I. )  =l'SED  (  L  )  -CRHD  /  DA  A*  AM  AX  3  (  I  SETD  (  L)  .  TQS  A ) 

330  continue 

1F( .NOT. (CRHD.LT. -.000001))  GO  TO  350 

I  Ft .NOT. (ERHAD(L) .GT. .000001 . OR . ERHAIX  L) . LT. 

+  -.000001))  GO  TO  340 

CHSED(L)=CRHD/ERHAD(L)*NSEIKL) 

340  CONTINUE 

350  CONTINUE 

360  CONTINUE 

370  CONTINUE 

380  CONTINUE 

390  CONTINUE 

400  CONTINUE 

410  CONTINUE 
420  CONTINUE 


CALCULATES  CNFB(NS)  AND  CNF!) 


DO  440  NS=1 ,MXNS 
TEM03=0. 

DO  430  B=1 ,MXNS 

] Ft .NOT. (NHB(B) .EQ.NS))  GO  TO  430 
TEM03=TEM03+(FAIL(I , B ) *NBC  f  B ) ) 

430  CONTINUE 

CNFB(NSj  =  (  I .  - S AT ( NS ) ) *FA I L ( I , NS)* (FLOAT (LRU ( I ) )+NHRT)* C CR*BRCT+ 
+  ( CN+CC ) * OST (  LO  (  NS ) ) )  +C I MF ( NS ) *TEMO 3* ( FLOAT ( LRU ( I ) ) +NHRT ) * ( CR* 

+  CRCT+  (  CN+CC)* ( OST(LO(NS )  )+U (XFPR--FPR ( I )  )*CRCT) ) 

440  CONTINUE 
TEM04=0 . 

DO  450  NS=1  ,MXNS 

TEM04=TEM04+FAI L ( I ,NS )*TNB(NS )*( (FLOAT (LRU (I ) ) +NHRT ) *CN* 

+  DRCT  ( LO  ( NS )  ) -NHNRT-*CC*DAD ) 

450  CONTINUE 
CNFD=TEM04 
C 

C .  CALCULATES  CPP(NS) 

DO  490  NS=1 ,MXNS 

RTSNFB=RTS ( I )*NFB ( I ,NS) 

IF ( .NOT. (RTSNFB.LT. .000001) )  GO  TO  460 
CPP ( NS ) =U ( CR* (CNFB(NS) +NFB ( I , NS ) ) ) 

460  CONTINUE 

IF( .NOT. (RTSNFB.GT. .000001))  GO  TO  480 
CPP (NS )=0 . 

I F( .NOT. (CR.LT.  .000001  )  )  GO  TO  470 
CPP(NS)=CR/RTS(I) 

470  CONTINUE 
480  CONTINUE 
490  CONTINUE 
TEM05=0 . 

DO  500  NS=1 , MXNS 

TEMO  5=TEM05+TNB (NS )* ( F ( CNFB ( NS )+NFB (I , NS ) ) -F (NFB (1  ,  NS ) ) ) 

500  CONTINUE 

X I TEMQ ( I ) =TEM05+ ( F ( CNFD+NFD ( I ) ) -F ( NFD ( I ) ) ) 

C 

C .  CALCULATES  CHLCC 

CI)=0. 

I  Ft .NOT. (LRU( 1  )  .EQ.O) )  GOTO  510 
CI)=COND  (  NHI  ( I  ) ) 

510  CONTINUE 
TF.M06=0 . 

Dr)  520  NS=1  , MXNS 

TE M 0 ft =TE MO (i + F A  11.(1  ,  NS  ) *TNB  (  NS ) 

520  CONTINUE 

TRMI’  =  1  2  .  *TF.MOh*  (  1  .  -CONDlNHI  (  I) )  ) 

TE'K 1 7=0  . 


J* 
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DO  530  NS= 1 , MXNS 

TEMO  7  =TEMO  7  +TNB ( NS ) * ( F ( CNFB ( NS ) +NFB ( I ,NS))) 

530  CONTINUE 

CH  LCC A= ( TEMO  7+ ( F ( CNFD+NFD ( I ) ) ) )*l'P( I )*XLEARN(I )*XUC-ISCA( I j+TEMP* 

+  l"P(n*XL’C*((NRUC*XLEARN(I)  +  (PIUP-NRUC))*(COND(I)+CC)+PIL'P*(l  .  - 
+  (COSDCI  )+CC))*RM(l))-RSCA(I) 

TEM08=0 . 

DO  540  NS= 1 , MXNS 

TEM08=TEM08+FAI L( I , NS )*TNB (NS)* ( (FLOAT ( LRU ( I ) )+NHRT)*(CR*BMH f I )Tr 
+  BMF* BLR+CN* ( DMH ( I )*DMF*DLR+2 .*CPPD(LO(NS ) )*WT( I ) )+CC* 

+  CPPD( LOIN’S )  )*VT(  i ) )  -NHNRT*CC*DMH( I  )'•'■' DM F*DLR ) 

540  CONTINUE 

CHLCCB=12 . *PIUP*TEM08 

CHLCCI)=0 . 

NXXX1'-NRM(  I ) 

IFf .NOT. (NXXX1.GT.0))  GO  TO  620 

DO  610  I RMT= 1 , MX I RMT 
NXXX2=NJA( I , I RMT) 

I F ( .NOT. (NXXX2.GT.0) j  GO  TO  600 
DO  580  LT= 1 , MXLT 

IF( .NOT. (LT.LE.NXXX2))  GO  TO  590 
L=A ( I , IRMT.LT) 

CHLCCC=0 . 

DO  560  NS=1 .MXNS 

IFf  .NOT.  (IRMT.EQ.RMK1  ,NS)))  GO  TO  550 

CHLCCC=CHLCCC+U(QSA(  I  ,  I  RMT ,  LT)  -  AIN’T  (QSA  ( 1  ,  IRMT.LT)/ 

+  100.  )■•••  100  .  )*TNB  (NS  )*CHSE  ( L , NS ) 

550  CONTINUE 

560  CONTINUE 

CHLCCF=0. 

IFf .NOT. (IRMT.EQ. 1))  GO  TO  570 

CHLCCF=CHLCCF+CHSED(L)*U(QSA(I , IRMT.LT) -AINT(QSA( I , I RMT , 
+  LT) / 100 . )*100 . ) 

570  CONTINUE 

CHLCCD=CHLCCD+( (CHLCCC+CHLCCF)*CSE(L)*( 1 ,+PIUP*MSE(L) ) ) 

580  CONTINUE 

590  CONTINUE 

600  CONTINUE 
510  CONTINUE 
620  CONTINUE 

TEM09=0. 

DO  630  NS=1 .MXNS 

TEM09=TEM09+ ( 1 . -SAT(NS) )*TNB(NS)*PIUP*SA*( AM1N1 (F(CNFB(NS)+ 

+  NFB ( I ,NS ) ) , 1 . ) -AMIN  1 (F (NFB ( I .NS) ) , 1 . )+CPP(NS)*PA( I ) ) 

630  CONTINUE 

TFM10=0 . 

FO  640  NP=1,MXNP 
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TEM10=TEM10+TOTT(NP)*(NITEM(1 ,NP)*UP(I)*XLEARN(I)*XUC-HDWRIT(I , 

+  NP)) 

640  CONTINUE 

CHLCCE=TEM09+TEM10 

CHLCC=CHLCCA+CHLCCB+CHLCCD+CHLCCE 

RETURN- 

END 
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SUBROUTINE  DPIUP 

C  810625  085444021 

C*  COMPUTES  PROGRAM  OPERATIONAL  * 

C*  ATU  MOD  SLR -4  JUNE  1980 

C*  LIFETIME  -  PI UP  FACTOR  * 


COMMON  /CON'D/  COND(150) 
COMMON  /CPIUP/  CPIUP 
COMMON  /FAIL/  FAIL(150,10) 
COMMON  /FINC/  FINC 
COMMON  /I/  I 
COMMON  / I IMCR/  IIMCR 
REAL  IIMCR 

COMMON  /I NO/  INO( 150) 
COMMON  /LDERV/  LDERV 
COMMON  / MX I /  MX I 
COMMON  /MXNS/  MXNS 
COMMON  /NHI/  NHI (150) 
COMMON  /NS/  NS 
COMMON  /OC/  OC 
COMMON  /OFMC/  OFMC 
COMMON  / ONMC /  ONMC 
COMMON  /PIUP/  PI UP 
COMMON  / RM/  RM( 150 ) 

COMMON  /RMTRC/  RMTRC 
COMMON  /SECR/  SECR 
COMMON  /STDCR/  STDCR 
COMMON  /TDPIUP/  TDPIUP 
COMMON  /TNB/  TNB(IO) 

COMMON  /UP /  UP (150) 

COMMON  /XUC/  XUC 


C  P I U  P = A I  NT  ( F I N  C  *  P I U  P +  .  5  ) 

TEM02=0 . 

DO  220  I XXX 1=1 , MXI 
I  =  I  NO  ( I XXXI ) 

TEMO 1=0 . 

DO  210  NS=1 .MXNS 

TEMO 1 =TEMO 1+FAIL(I ,NS) *TNB ( NS ) 

210  CONTINUE 

TEM02=TEM02+TEM0 1* ( 1 .  -COND(NHI  ( I ) )  )*UP  ( I ) ‘"XUC* (CON’D (  I )  +  (  1 .  - 
+  COND( I ) )*RM( I ) ) 

220  CONTINUE 

T1=PIUP*12.*TEM02 


■A 
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TDPIUP=CPIUP/PIUP*(OC+ONMC+OFMC+SECR+I IMCR+T1+PIUP/ (PIUP- 1 . ) 
+  (STDCR+RMTRC))/ 1000000. 

RETURN 

END 


SUBROUTINE  DDMF 


C 

Q  J.  .1. -I.  -I.  J.  J-  .1-  .1.  J.J-  J.  .1.  J.  J.  -I-  Jji  . 

C*  BASELINE  CHANGE 

C*  COMPUTES  MAINTENANCE  REPAIR  TIME 

C*  FACTORS  -  BMF  AND  DMF 

£,W.  -I-  J.  .1,  . I  _  .  I.  .1.  J.  .1  *  -L.  .1.  J.  -I J.  J,  J. 

C 

COMMON  /BAA/  BAA 
COMMON  /BLR/  BLR 
COMMON  /CSE/  CSE ( 120) 

COMMON  /DAA/  DAA 
COMMON  /DLR/  DLR 
COMMON  /ERHAB/  ERHAB ( 120 , 10) 

COMMON  /ERHAD/  ERHAD(120) 

COMMON  /ERHBI/  ERHBI ( 150 , 10) 

COMMON  /ERHD/  ERHD(150) 

COMMON  /FINC/  FINC 
COMMON  /I/  I 
COMMON  /INO/  INO ( 150 ) 

COMMON  /I SET/  ISET(120,10) 

REAL  I  SET 

COMMON  /ISETD/  ISETD(120) 

REAL  ISETD 
COMMON  /L/  L 
COMMON  /LDERV/  LDERV 
COMMON  /MSE/  MSE(120) 

REAL  MSE 

COMMON  /MXI /  MX I 
COMMON  /MXL/  MXL 
COMMON  /MXNS/  MXNS 
COMMON  /NS/  NS 
COMMON  /ONMC/  ONMC 
COMMON  /PIUP/  PIUP 
COMMON  /SEINO/  SE INO (120) 

INTEGER  SEINO 
COMMON  /TDMF /  TDMF 
COMMON  /TNB/  TNB(IO) 

COMMON  /USE/  USE (120, 10) 

COMMON  /USED/  USED (120) 

C 

C 

TDMF  A=F I NC*ONMC 
DO  220  IXXX1=1 , MXI 
I = I NO ( I XXXI ) 

TEMO 1=0 . 

DO  210  NS=1 , MXNS 


810625  085446134 

j.j.  j.j.  j.  .i,  a,  j.  j.  j.  j.  j.  .i. 


.  J.  JL.  J- 


..1 


J.J.  I-  J-  JL.  -I-  JU 
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TEMO  l=TEMO  1+ERHB I  ( I ,  NS )  *TNB(NS ) 

210  CONTINUE 

TDMFA=TDMFA+ 1 2 . *P I UP*F I NC* ( TEMO 1 *B LR+ERHD ( I )*DLR ) 

220  CONTINUE 
TEMO 3=0. 

DO  240  IXXX1=1 ,MXL 
L=SEIN0(IXXX1) 

TEM02=0 . 

DO  230  NS=1,MXNS 

TEM02=TEM02+(USE(L,NS)*ERHAB (L,NS)*ISET(L,NS )*TNB(NS) /BAA ) 
230  CONTINUE 

TEMO  3=TEM0  3+ ( TEMO  2+USED ( L ) *ERHAD ( L ) * I SETD ( L ) / DAA ) *C  S  E ( L ) * ( 1 .+ 
+  PIUP*MSE (L) ) 

240  CONTINUE 

TDMF=TDMF A+F I N  C*TEMO 3 
TDMF=TDMF/ 1000000 . 

RETURN 

END 


SUBROUTINE  DRM 


C 

c- 

c- 

c- 

c- 

c- 

c 


ATU  MOD  SLR  -  5  JL'N  60 

COMPUTES  ITEM  SPECIFIC  REPAIR  MATERIALS  COST 
FACTOR  -  RM (  I  ) 


810625  085449906 


COMMON  /PRNTXX/  PRN'TXX 
INTEGER  PRNTXX 
COMMON  /CON'D/  COND(ISO) 

COMMON  /FAIL/  FAIL! 150 ,10) 

COMMON  /FINC/  FINC 

COMMON  / 1 /  I 

COMMON  / I DRM/  IDRMl 150) 

COMMON  , I  NO/  I NO  f 150) 

COMMON  / LDERV/  LDERV 
COMMON  / LDRM/  LDRM 
COMMON  / MX I /  MX  I 
COMMON  /MXNS/  MXNS 
COMMON  /NHI  /  NHK150) 

COMMON  /NS/  NS 
COMMON  ,'PIUP/  PI  UP 
COMMON  /RM/  H M ( 150) 

COMMON  /TDRM/  TDRM(150) 

COMMON  /TNB/  TNB(IO) 

COMMON  /UP /  UP( 150) 

COMMON  ,/XUC/  XL'C 
C 
C 

DO  220  I  XXX 1  =  1 , MXI 
I  =  I  NO (  I XXXI ) 

TEND  1=0. 

DO  210  NS= 1 , MXNS 

TEMO 1=TEM0 1+FAI L( I , NS )*TNB ( NS ) 

210  CONTINUE 

TDRM f  I  )  =  12.  ••'TEMO  1*(1  .  -CONDINHl  (I ) )  )*PIL’P*(1  .  -CONI) (I )  )*FINC*RM(  I  ) 
+  ••UP(  I  I  ■•'•XL'C/  1000000. 

220  CONTINUE 


DO  9 99  IXXX=1 ,MXI 

I DRM  ( I XXX 1  =  1  NO  (IXXX) 

999  CONTINUE 
LI)=LI)RM 

IF  (  PRNTXX  .  NE  .  0  )  LI)=MAXO  ( LD ,  LDERV  ) 
CALL  TUSORTI TDRM  , I DRM  ,LD,MXI  ) 
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RETURN 

END 


162 


SUBROUTINE  DXRM 


COMPUTES  GLOBAL  REPAIR  MATERIALS  COST 
FACTOR  -  XRM 


COMMON  /I/  I 
COMMON  /I NO/  INO( 150) 
COMMON  /LDERV/  LDERV 
COMMON  / MX I /  MX I 
COMMON  /TDRM/  TDRM(150) 
COMMON  /TDXRM/  TDXRM 


TEMO 1=0 . 

DO  210  I XXX 1=1 ,MXI 
I = I NO ( IXXX1 ) 

TEMO 1 =TEM0 1 +TDRM ( I ) 
!  1 0  CONTINUE 
TDXRM=TEMO 1 

RETURN 

END 


810625  085A52 1 24 
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SUBROUTINE  DXUC 


C 

C*  COMPUTES  GLOBAL  UNIT  COST  FACTOR  -  XUC 
*  ATU  MOD  SLR  -  23  JUNE  80 


C 

COMMON  /FIN’C/  FINC 
COMMON  /ISC/  ISC 
REAL  ISC 

COMMON  /LDERV/  LDERV 
COMMON  /RSC/  RSC 
COMMON  /TDXUC/  TDXUC 
COMMON  /TERMH/  TERMH 
C 
C 

TDXUC= ( F I NC* (TERMH+ I SC+RSC ) ) / 1000000 . 
C 

RETURN 

END 


810625  085453725 
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SUBROUTINE  DL'P 


C  810625  085454760 

C*  ATI'  MOD  SLR  -  5  JUS  80 

C*  COMPUTES  ITEM  SPECIFIC  UNIT  COST  * 

C*  FACTOR  -  UP(I) 

C 

COMMON  /PR.NTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /"INC/  FINC 
COMMON  /I/  1 
COMMON  /IDUP/  IDUP (150) 

COMMON  /ISO/  I  NO  050) 

COMMON  / I  SC A/  I SCA( 150) 

REAL  ISCA 

COMMON  /LC/  LC (150) 

REAL  LC 

COMMON  '  LDERV/  LDERV 
COMMON  EDIT  •  LI) UP 
COMMON  MX  I  MX  1 
COMMON  MXNP  MXNP 
COMMON  N ITEM  N ITEM (150,5) 

REA  I,  NITEM 

COMMON  'NP/  NP 

COMMON  'RSCA  RSCA(i50) 

COMMON  /TDL'P  TI>1  P (  150) 

COMMON  .'TOTT  TOTH  5  ) 

COMMON  UP  UP i 1 50) 

COMMON  XI  0  XUC 
C 
C 

i)0  220  1  XXX  1  =  1,  MX  I 
:  =  I  NO i  I  XXXI  ) 
ti;moi=o  . 

I!0  210  M’=  1  , MXNP 

TEMO  I  -TEMO  !+ToTT(  NP  ) ■•■•N  ITEM (  I  .NP  ) 

210  CONTINUE 

71)1  10  1  )  =F  1  NO-  (  TEMO  1  "TP  .  )*LC(  I  l*Xl'C+(  ISCA(  1  l+RSCAl  1)10  UHH'OOO. 
220  CiNTlNUE 

ih  o'oi  :xxx=i,mxi 

IDUP  ( 1 XXX  )  =  I  NO  (I  XXX) 

-CIO  CONTINUE 
LP-LPUP 

IF  i  PRNTXX  .  NE  .  0  )  LI)=MAXO  t  LI) ,  LDERV  ) 

CALL  TDSORTfTDUP  .IDUP  .LD.MX1  ) 


IhS 


SUBROUTINE  DFR 


810625  08545o462 

ATI'  MOD  SLR  -  5  JUN  80 
COMPUTES  ITEM  SPECIFIC  FAILURE  RATE 
-  FR ( I ) 

COMMON  ./PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /A/  A (150, 4, 3) 

INTEGER  A 
COMMON  /BAA/  BAA 
COMMON  /CON'D;  COND(ISO) 

COMMON  /CSE/  CSE (  120 ) 

COMMON  ,/DAA/  DAA 

COMMON  /ERHB1 /  ERHB I ( 1 50 , 10) 

COMMON  /ERHD/  ERHIH'150) 

COMMON  /  FA  iU  FA  I L  (1 5  0 , 1 0 ) 

COMMON  ,/FINC/  FINC 

COMMON  i  I  I 

COMMON  I  DFR./  I  DFR  (150) 

COMMON  I  NO/  1  NO (150) 

COMMON  I  KM  IN'  I RMIN( 150,4) 

COMMON  I RMT/  I  KMT 
COMMON  /  I  SCA/  I  SCA  (150 
REAL  1 SCA 

COMMON  '  1  SET/  I  SF,T(  120 , 1  0 ) 

REAL  1  SET 

COMMON  1SF.TD/  1SETD(120) 

REAL  I  SET!) 

COMMON  ,/L.  I, 

COMMON  LDERV/  LDERV 
COMMON  / LDFR /  LDFR 
COMMON  /LT/  I,T 
COMMON  /MSF,/  MSE(120) 

REAL  MSL 
COMMON  /MX  I /  MX  I 
COMMON  /MX  I RMT/  MX  I RMT 
COMMON  /MXLT/  MXLT 
COMMON  MX NS  '  MXNS 
COMMON  NKB  NFB( 150,10) 

REAL  NFB 

COMMON  NED,,  NT!) i  1  50  l 
REAL  NED 

COMMON  NH  I  NH  I  i  1  50  ) 

COMMON  N.IA  VIA  l  1  >0 , 4  > 


lb/ 


:  MM  N 

NRM  '  NKM  i  1  30  ) 

O'  ‘MM  N 

NRl’C  /  NKOC 

OKAO  Nk< 

0 

C!  'MM'.  N 

NS  '  NS 

f'1  |\ 

r’TMCA  OF  MCA  (  150  ) 

COMMON 

f’NMCA  ON MC A (  150  ) 

COMM  ON 

PUT'  PUP 

0  IMMON 

.  QSA  QSA  ;  I  r)(y  ,4 , 3  )• 

I'rwy.’  \ 

KM  RMtl.50) 

mm  n 

KM!.  KM1 il50,10) 

;  n  :t.  okk 

KM! 

o  ''MON 

KS‘  \\  KSv'A  t  i  50  J 

Oo. 'MM.  N 

SA  SA 

COMMON 

,'TDFR  '  TDFRi  150) 

COMMON 

T1SQ.'  TlSijtlSO) 

COMMON 

TI  SQN.-  T:SQNT150j 

COMMON 

TN B  TNBllO) 

COMMON 

"I'QSA  •  TQSA 

COMMON 

.  IT  IT!  i  50  ) 

COMMON 

;  sr.  i '  s  Hi  t  i  20  ,io) 

COMMON 

I'SEI)/  l  sen  i  1203 

COMMON 

X! TKMO  XlTEMQi 1 50 ) 

COMMON 

xtc  xrc 

COMMON 

YKSQ  YKSQ ; 150) 

IK'  330 

I  XXX 1  =  1. MX  i 

;  =  :  vm  i xxx i  ) 

TKMO 1=0. 

DO  2U>  \S=1  ,  MXNS 

TF.MO  !  =TF.Mi  1  +TNH  t  NS  )  *  F(  (1  . +F1SC1*SFB(  1  ,  NS  >  t 

i.<  oxtinit, 

TiSQX't  i  i=TF.MO  I +Ki  (  1  .  +F1NC )*NFD(  1  ) ) 

XITKMCJt.  I  )  =  (  TiSQNi  !  s-TIST  i  i  i+FINC*NRL’C*YRSQl  I ) 

TEM02=0 . 

DO  2  2D  NS=1,MXNS 

TKM02=TKMO2+FAIU  1  .NS  i*TN8(NS) 

0  Cl )\TI  NIT. 

TKMI^ ;  2  .  *TKMl>2*  (  i  .  -  COM)  (  NHIll  ))  ) 

TDFKA=<  1  .+FINC)*TF.M' -M  i  NRIC*X1T.ARN ( 1)  +  (PU'P-NRLC  )  V'TON'in  I  Mi’ll.' 
+  (  1  .  -CON!) i  I  )  I* km;  I  1  1  )*Xl'C -RSCA (  I  '■  +TI SQN ( I  )*UP(  1  )*Xl.F.AKS( 

+  -••■xrc- :sca(  i  i+finc-munmcai  i  )+ofmca(I)) 

7DFKB=D . 

NXXX 1 =NKM (  I  ! 

; >' i  . not .  (  nxxx i . err .nn  c;« <  ti i  s  1  o 
D"  2')0  1  RMT=  1  ,  MX  1  KMT 

:  .  NOT.  ikMT. NXX.Xl  1  )  GOTO  300 


i  h  K 


NXXX2=NJA (  I  ,  IRMT) 

IFt .NOT. (NXXX2.GT.0) )  GO  TO  280 
DO  2bO  LT=  1  ,  MXI.T 

I  F  l  .  NOT .  (  LT .  I.E  .  NXXX2  j  )  GO  TO  2  70 
L=A (1,1 RMT , LT ) 

TDFRB 1=0 . 

DO  240  NS=1,MXNS 

1F( .NOT. ( IRM1N1 I , IRMT) .EQ.RMI ( I ,NS) ) )  GO  TO  230 
TQSA=QSA( I , l RMT , LT ) - A I  NT  ( QS A ( I , IRMT, LT) / 100 . )*100. 
TDFRB  1  =USE (  L , NS  ) -'EKHB I  (  I  ,NS  )*l.'('Tt)SA)*lSET(  L.NS)* 

+  TNB  l  NS  )  / BAA+TDFRB 1 

230  CONTINUE 

240  CONTINUE. 

TI)FRB2=0 . 

I F (  . NOT . ( I RM I N (  I  , I RMT  )  . EQ .  1  ! )  GO  TO  2  50 

TQSA=QSA(  I  ,  I  RMT ,  LT  i  -  A I  NT  (  QSA  (  1  ,  I  RMT  .  IT) /TOO  .  r'TOO  . 

TDFRB2=USF.D  1 I.  F-'-'ERHI)  (  I  )'T'(  TQSA  )'■•'  I  SF.TI)  (  L  )  /DAA 
250  CONTINUE 

T1)FKB=TI)FRB+F  1  SC« ( TDFRB  1 +TDFRB2  r-CSE.  T  C 1  . +F I UF’*MSF, (  L  I  I 
260  CONTINUE 

270  CONTINUE 

_ SO  CONTINUE 

200  CONTINUE 

300  CONTINUE 

310  CONTINUE 

TEMO 3=0 . 

DO  320  NS= 1 , MXNS 

TF.M03=TEM03+(  AM1N1  '  Fill  ,+FINC  )*NFB(  I , NS  1  )  ,  1  .  )  -  AM  I N 1  (  F<  NFBi  I  , 

*  NS  )1  ,  1  .  )  : -••TNB (NS  ) 

CONTINUE 

IDFRt  I  )  =  i  TDFKA+TDFRIi+TEM03';-T  I  IT’*SA )  / 1000000  . 

3  31'  .  NT  i  NUE 

no  ixxx=i , mx l 

I  Di'K  C  I XXX  )  =  I  NO  (I  XXX) 

999  CONTINUE 
LI)=LDFK 

IF  (  FRNTXX  .  NT. .  o  )  I,D=MAXO  (  LI) ,  LDERY  ) 

CALL  TDSORTlTDFR  ,  I  I)FR  .LD.MXl  ) 


RETURN 

END 
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SUBROUTINE  DXFR 

C  810625  085504857 

C*  COMPUTES  GLOBAL  FAILURE  RATE  FACTOR  -  XFR 

C 

COMMON  /]/  1 

COMMON  /I  NO.  I  NO  (150) 

COMMON  /LDERV/  LDERV 
COMMON  /MX 1 /  MX  I 
COMMON  TDFR,'  TDFRi  150) 

COMMON  "TT)XFK/  TDXFR 
C 
C 

TEMO 1=0 . 

DO  210  I XXX 1  =  1 , MX1 

i  =  iNonxxxi ) 

TEMO  1  =7F.M0 1 +TDFR  ( 1  i 
210  CONTINUE 
TDXFR=TKMO 1 
C 

RETURN 

END 
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SUBROUTINE  DFPR 


810625  085507289 


COMPUTES  ITEM  FALSE  PULL  RATE  -  FPR(I) 


COMMON  /PRN'TXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /A/  A< 150,4,3) 

INTEGER  A 
COMMON  /B/  B 
INTEGER  B 
COMMON  /BAA/  BAA 
COMMON  ,/BCMH/  BCMH(150) 

COMMON  /BLR/  BLR 
COMMON  /BMF/  BMF 
COMMON  /BRCT/  BRCT 
COMMON  /BTYPE/  BTYPE(IO) 
INTEGER  BTYPE 
COMMON  /C IMF/  C1MF(10) 

COMMON  /CON'D/  CONDI  150) 

COMMON  /CPPC/  CPPC 
COMMON  ,'CRCT/  CRCT 
COMMON  /CSE/  CS El  120) 

COMMON  /FAIL/  FAIL! 150, 10) 
COMMON  /FINC/  FINC 
COMMON  /FPR/  FPR (150) 

COMMON  /HDWRIT/  HDWRITI 1 50 , 5 ) 
COMMON  / T /  1 

COMMON  / I DFPR/  IDFPRI150) 
COMMON  /I NO/  I NO (150) 

COMMON  / I RM 1 N /  IRMIN(150,4) 
COMMON  / I RMT /  IRMT 
COMMON  /ISCA/  I  SC A ( 150) 

REAL  ISCA 

COMMON  /I  SET/  ISET(120,10) 
REAL  I  SET 
COMMON  /L/  L 
COMMON  ,'LDERY/  LDF.RV 
COMMON  ,/LDFPR/  LDFPR 
COMMON  /LRU/  LRU (150) 

COMMON  /LT/  LT 
COMMON  ,/MSE /  MSE1120) 

REAL  MSE 
COMMON  /MX I /  MX  I 
COMMON  /MX I RMT/  MX  I RMT 
COMMON  ,/MXLT/  MXLT 
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COMMON  /MXNP/  MXNP 
COMMON  /MXNS/  MXNS 
COMMON  /SBC/  NBC (1 0 ) 

REAL  NBC 

COMMON  /NFB/  NFB(150,10) 

REAL  NFB 

COMMON  /NHB/  NHB(IO) 

COMMON  /NH1 /  NHI(150) 

COMMON  /NITEM/  NITEM(150,5) 

REAL  NITEM 

COMMON  ,/NJA/  NJA(  150,4) 

COMMON  /NP/  NP 
COMMON  /NRM/  NRM (150) 

COMMON  /NRCC/  NRCC 
REAL  NRCC 
COMMON  /NS/  NS 
COMMON  ,/OSTC/  OSTC 
COMMON  / P I U P /  PI UP 
COMMON  ,'QSA/  QSA(130,4,3) 

COMMON  /RM/  RM (150) 

COMMON  /RMH/  RMH( 150) 

COMMON  / RM I /  RMI (150, 10) 

INTEGER  RMI 

COMMON  /RSCA/  RSCAdSO) 

COMMON  /SA/  SA 
COMMON  /SAT/  SAT(10j 
COMMON  /TDFPR/  TDFPRf 150) 

COMMON  /TLSQ/  TISQ(150) 

COMMON  /TNB/  TNB('IO) 

COMMON  /TOTT/  T0TTC5) 

COMMON  ,'TQSA/  TQSA 
COMMON  ,/UP/  UP (150) 

COMMON  /USE/  USE( 120 , 10) 

COMMON  /WT/  WT( 150) 

COMMON  /XFPR/  XFPR 
COMMON  /XITEMQ/  XITEMQ(150) 

COMMON  rX.CC/  XUC 
DIMENSION  CHNFB (150,10) 

C 

C 

DO  270  NS= 1 , MXNS 

I F ( . NOT . f  BTYPE ( NS ) . EQ . 3 ) )  GO  TO  220 
IK)  210  IXXX2=1 ,MXI 

i  r  vn  (  T  YYVO  ) 

CHNFB  ( 1  ,NS  )=FAII.(  I  ,NS)*FLOAT  (  LRU  ( I )  )*FINC*FPR  ( I  )•••  XFPR  ••'OSTC 
210  CONTINUE 
220  CONTINUE 
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230 

+ 

240 
250 
260 

270  CONTINUE 

DO  440  IXXX1=1 ,MXI 
I = I NO ( I XXX 1 ) 

TDFPR ( I )=0 . 

I F ( . NOT . ( LRU ( I ) . NE . 0 ) )  GO  TO  430 
TEM02=0 . 

DO  280  NS=1,MXNS 

TEM02=TEM02+TNB(NS)*(F(NFB(I ,NS)+CHNFB ( I ,NS ) ) -F(NFB ( I ,NS) ) ) 
280  CONTINUE 

XITEMQ(I )=TEM02 
TEM03=0. 

DO  200  NS=1 , MXNS 

TEM03=TEM03+TNB  ( NS )  •■FA I  L(  I  ,  NS ) 

290  CONTINUE 

TI)FPRA“(T1  SQ  ( I  )+X  ITEMQ  ( I )  )*UP  ( I  )*X  LEARN  (  I  )*XUC  -  I SCA II  )  + 1 2  .  * 

+  PIUP*TEM03*FINC*FPR(I )*XFPR*RMH(I)*BMF*BLR 

TEM04=0 . 

DO  300  NS=1 , MXNS 

TEM04=TEM04+TNB  ( NS  )*FA I L  ( I  ,  NS  )*  (  BCMH  ( I ) * B M F B  LR + S  AT  (NS ) *2  .  * 
+  CPPC*WT(I)) 

300  CONTINUE 

TDFPRB= 1 2 . * P I UP*TEM04*F I NC*XFPR*FPR ( I ) 

TDFPRC=0  . 

DO  390  NS=1 ,MXNS 
TEMP=0 . 

NXXX 1 =NRM ( I ) 

I F ( . NOT . ( NXXX 1 . GT . 0 ) )  GO  TO  370 
DO  350  IRMT=I .MXIRMT 

I F ( . NOT . ( I RMT . LE . NXXX 1 ) )  GO  TO  360 
I F ( . NOT . ( I RM I N ( I , I RMT ) . EQ . RM I (I , NS ) ) )  GO  TO  340 
NXXX2=NJA( I , I RMT) 

IF( .NOT. (NXXX2.GT.0) )  GO  TO  330 


IF  (  .  NOT .  (BTYPE  (NS )  .  NE  .  3  )  )  GO  TO  260 
DO  250  IXXX2=1,MXI 
I = I N 0 ( IXXX2 ) 

CHNFB ( I ,NS)=FAIL( I , NS ) *FLOAT ( LRU ( I ) )*FINC*FPR(I )*XFPR*BRCT 
IF( . NOT . (BTYPE (NS) . EQ . 2 ) )  GO  TO  240 
TEMO  1=0 . 

DO  230  B=1,MXNS 

IF ( . NOT. (NHB (B ) . EQ . NS) )  GO  TO  230 
TEM01=TEM01+FAIL(I ,B)*NBC(B) 

CONTINUE 

CHNFB ( I , NS  J  =CHNFB ( I , NS )+C IMF ( NS )*TEM0 1*FL0AT ( LRU ( I ) ) *F I NC* 
FPR( I )*XFPR*CRCT 
CONTINUE 
CONTINUE 
CONTINUE 
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DU  310  LT= 1 , MXLT 

1F( .NOT. (LT.LE.NXXX2))  GO  TO  320 

TQSA=QSA(  i  ,  1 RMT ,  LT )  -  A I  NT  (  QSA  (  I ,  I RMT  ,1/0/100.  P'MOO 

L=A ( I , IRMT.LT) 

TEMP=TEMP+U  (TQSA  )*USE  (  L ,  NS  )*  I  SET  C  L  ,  NS  ) *CSE  (  L  )  ••  ( 1  . 
+  PIUP'-'MSE  (L)  ) 

310  CONTINUE 

320  CONTINUE 

330  CONTINUE 

340  CONTINUE 

350  CONTINUE 

360  CONTINUE 

370  CONTINUE 

TEND 5=0. 

IK)  380  B= 1 , MXNS 

IF(  .NOT.  (NIIB(B)  .EQ.NS)  ]  GO  TO  380 
TEM05=TEM05+FAIU l ,B)*NBC(B) 

380  CONTINUE 

TL)FPRC=TI)FPRC+<  1  .  -SATINS  )  (FAI  L(  I  ,NS)+CIMF(NS  )*TKM05  D'-TEM  P 
390  CONTINUE 

TDFl,RC=Tl)FI,kC-'FINC*FPR(I  )*XF PR*BCMH(  I  )*BMF/BAA 
TEM06=0 . 

DO  400  NS=1 , MXNS 

TEM06=TEM0o+FAI U 1 ,NS )*TNB(NS) 

400  CONTINUE 

TEMP= 1 2 . *TEMOn* ( 1 . -CONDI NH I ( I ) )  ) 

TKM07=0. 

DO  410  NS= 1 , NX NS 

TEMO 7=TF.M0 7+TNB  (  NS  )  -  (AM I N  T  F (CHNFB  ( I  , NSHNFBI  1  ,NS)1  .  1  .  l- 
+  AMIN1  (Fl.NFBl  1  ,NS) )  ,  1  .  )) 

410  CONTINUE 

TE '108=0. 

IK)  -*2U  NP=  i  , MXNP 

TEM08=TEM08+T0Tn  NP  )••  ( NITEM(  I  ,NP)*UP(I  )*XLEARNt  1  )*XUC- 
+  HDWRITi 1 , NP1 ) 

420  CONTINUE 

TI)FI>RD=TEM07-,-PlUP-'  SA+TEM08+TEMP"  ( (NRUC*XEEARN(  I  i  +  (  PIUP-NRUC  1 
+  )*t:ONDn  )+!’  I  UP'-  (  1  .  -CON'D ( I  )  )*RM(  I  ) }  “'UP  f  1  1*XUC-RSCA(  1  ) 

TI1FPK  (  I  )  =  ( TDFPRA+TDFPRB+TDFPRC+TDFPRD  >  /  1 000000  . 

430  CONTINUE 
440  CONTINUE 

DO  499  1 XXX= 1 , MX  1 

IDFPK  l  1 XXX )  =  I  NO  l 1 XXX  9 

999  CONTINUE 

1,I)=1.I)FPR 

IK  i  PRNTXX.NK.O)  Ll)=MAXO  I  U) ,  LDERV  ) 


c 


CALL  TDSORT(TDFPR  ,IDFPR  ,LD,MXI 


RETURN 

END 
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SUBROUTINE  DXFPR 


810625  085523469 


C 

C*  COMPUTES  GLOBAL  FALSE  PULL  RATE  - 
C*  XFPR  FACTOR 

C 

COMMON  /I/  I 
COMMON  /INO/  ISO (150) 

COMMON  /LDERV/  I.DERV 
COMMON  / MX I /  MX I 
COMMON  /TDFPR/  TDFPR(150) 

COMMON  /TDXFPR/  TDXFPR 
C 
C 

TF.MO  1=0  . 

DO  210  1 XXX 1=1 ,MX1 
I = I NO ( I XXX 1  ) 

TEMO 1 =TEMO 1 +TDFPR ( 1 ) 

210  CONTINUE 

TDXFPR=TEMO 1 
C 

RETURN 

END 


1  7  n 


o  o  o  o  o 


SUBROUTINE  DRTS 


C 

e 

c 


COMPUTES  ITEM  BASE  REPAIR  FRACTION 
-RTS(I)  FACTOR  -  DRTS 


810625  085524541 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /CON’D/  C0ND(150) 
COMMON  /FINC/  FINC 
COMMON  /I/  I 

COMMON  /I DRTS/  IDRTS(150) 
COMMON  / INO/  INO( 150) 
COMMON  / LDERV/  LDERV 
COMMON  / UDRTS/  LDRTS 
COMMON  / MX I /  MX I 
COMMON  /NRTS/  NRTS(150) 
REAL  NRTS 

COMMON  /TORTS/  TDRTS(150) 


DO  2  50  I XXX 1  =  1, MX I 
I  =  I  NO ( I XXXI) 

TDRTS ( I )=0 . 

I F ( . NOT . ( COND ( I ) . EQ . 1 . ) )  GO  TO  210 
CR=AMIN 1 (FINC  ,  1 . ) 

CN=0 . 

CC=-1  .-"CR 
210  CONTINUE 

I F ( . NOT . ( COND ( I ) . LT . 1 . ) )  GO  TO  220 
CR=AM I N 1 ( F I NC , NRTS ( I ) ) 

CN=-  1  .•••CR 
CC=0  . 

220  CONTINUE 

IF( .NOT. (CR.GT.O. ))  GO  TO  230 

TDRTS (I )=(CHLCC(CC,CR,CN, I))/ 1000000. 

230  CONTINUE 

IFf .NOT. (TDRTS ( I ) .GT. -0.000001 ) )  GO  TO  240 
TDRTS ( I )=0 . 

240  CONTINUE 
250  CONTINUE 

DO  499  I XXX= 1 , MX  I 

I DRTS  ( I XXX )  =  INO  (IXXX) 

999  CONTINUE 
U)=LI)RTS 
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IF  (  PRN'TXX  . NE . 0  )  IJ)=MAXO (  LD ,  LDERV  ) 
CALL  TDSORTC TORTS  ,II)RTS  ,LI),MXI  ) 

RETURN 

END 


SUBROUTINE  DN'RTS 


810625  085527311 


C*  COMPUTES  ITEM  DEPOT  REPAIR  FRACTION  - 

C*  NRTS  ( I )  FACTOR  -  DN’RTS  * 

C 

COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /CON’D/  COND(150) 

COMMON  /FINC/  FINC 
COMMON  11/  1 

COMMON  /  I  DN'RTS/  IDNRTS(150) 

COMMON  /I  NO/  I  NO (150) 

COMMON  /LDERV/  LDERV 
COMMON  / LDNRTS/  LDNRTS 
COMMON  / MX I /  MX  I 
COMMON  /RTS/  RTS (150) 

COMMON  /TDNRTS/  TDNRTS(ISO) 

C 

C 

DO  2  50  I XXX 1  =  1, MX I 
I = I N 0 ( I XXXI ) 

TDNRTS ( I )=0 . 

IF (  .NOT.  (CON'D (I  )  .EQ.  1 .  )  )  GO  TO  210 
CN=AMIN1 (FINC,  1  .  ) 

CR=0 . 

CC=-1 . *CN 
210  CONTINUE 

I F  (  .  NOT  .  ( CON'D  ( I  ) . LT . 1 .  ) )  GOTO  220 
CN=AM INI ( FINC, RTS ( I ) ) 

CR=-1 .*CN 
COO . 

220  CONTINUE 

I  Ft  .NOT.  (ON'.GT.O.  )  )  GO  TO  230 

TDNRTS ( I )  =  ( CHECC (CC ,CR ,CN , I )  )  / 1000000 . 

230  CONTINUE 

IFf  .NOT. ( TDNRTS ( I  )  .GT. -O.OOOOOl)  )  GOTO  240 
TDNRTS ( I  >=0. 

240  CONTINUE 
250  CONTINUE 

r 

DO  999  I  XXX=  1  ,  MX  I 

I DNRTS ( I  XXX )  =  I  NO  (I  XXX) 

999  CONTINUE 
LI)=  LDNRTS 

I F  I PRNTXX . NE . 0 )  ED=MAXO ( LD , LDERV  ) 
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SUBROUTINE  DCON’D 


810625  0855294 1  5 


C 

C*  COMPUTES  ITEM  CONDEMNATION  RATE  - 
C*  COND(I)  FACTOR  -  DCOND 

C 

COMMON  /PRNTXX7  PRNTXX 
INTEGER  PRNTXX 
COMMON  /CON'D/  COND(150) 

COMMON  /FINC/  FINC 
COMMON  /I/  I 

COMMON  / I DCOND/  I DCOND (150) 

COMMON  / I NO/  I NO ( 150) 

COMMON  /LDCOND/  LDCOND 
COMMON  / LDERV/  LDERV 
COMMON  /MX I /  MX I 
COMMON  /NRTS/  NRTS(150) 

REAL  NRTS 

COMMON  /RTS/  RTS (150) 

COMMON  T DCOND  TDCOND(ISO) 

C 

c 

DO  2  50  1 XXX 1=1, MX  I 
I  =  I  NO  (.  I XXX I  ) 

TDCONDl I  )=0. 

IF(  .NOT.  (CONI)  (I  1  .EQ.  1  .  )  )  GOTO  210 
CC=0 . 

CR=0 . 

GN-0  . 

210  CONTINUE 

IF( . NOT. ( CONDI  I  )  . LT. 1 .  ) )  GOTO  220 
CC=AM  1  N  1  (FINC  ,  1  .  -CON'D ( I ) ) 

CR=-  1  .  •■RTS (  I  )  /  ( RTS  (  I  l+NRTS  ( I  )  )*CC 
CN=  -  1  .  -UN  RTS  <  I  )  /  (  RTS  (  I  )  +NRTS  (  I  ) )  *CC 

220  CONTINUE 

IF( .NOT. (CC.GT.O. ))  GO  TO  230 
TDCOND ( I )=( CHLCC ( CC . CR , CN , I ) ) / 1 000000 . 

230  CONTINUE 

IFC .NOT.  ( TDCOND CIl .GT. -0.000001)  )  GO  TO  240 
TDCOND ( I  )=0 . 

240  CONTINUE 
250  CONTINUE 
C 

DO  999  1 XXX= 1 , MX  I 

I DCOND ( I XXX )  =  I  NO  (I  XXX) 

999  CONTINUE 
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IF=  (PRNTXR  ■  NE .  0 )  LIPMAXO <U) . LDERV  1 

CALL  Tr'SORT (TCCOND ,  1 DCOSI) , LT)  >XX1 


return 

F.ND 


SUBROUTINE  DSRU 


,  -U  .*•  .1.  .v 


i  J.  J#  »L  J-  - 


810625  085532708 

J-  .'..’j.  .Ij,  J.  J- wU  J.-». 


ATU  MOD  JRC  -  5  JUN  80 

COMPUTES  SENSITIVITY  ON  WHICH  SRUS 

SHOULD  BE  LRUS  -  DSRU 


j.  Jj.i.. 


•****' 


, ->•  J-J. 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /A/  A( 150 ,4 , 3 ) 

INTEGER  A 
COMMON  /B/  B 
INTEGER  B 
COMMON  /BAA/  BAA 
COMMON  /BCMH/  BCMH(150) 
COMMON  /BLR/  BLR 
COMMON  /BMF/  BMF 
COMMON  /BMH/  BMH(150) 

COMMON  /BRCT/  BRCT 
COMMON  /BTYPE/  BTYPE(IO) 
INTEGER  BTYPE 
COMMON  /CIMF /  CIMF(IO) 

COMMON  /COND/  C0ND(150) 
COMMON  /CPPC/  CPPC 
COMMON  /CPPD/  CPPD(3) 

COMMON  /CRCT/  CRCT 
COMMON  /CSE/  CSE( 120) 

COMMON  /DAA/  DAA 
COMMON  /DLR/  DLR 
COMMON  ,/DMF/  DMF 
COMMON  /DMH/  DMH(150) 

COMMON  /DRCT/  DRCT(3) 

COMMON  /ERHBI/  ERHBI (150 , 10) 
COMMON  /FAIL/  FAIL(150,10) 
COMMON  /FPR/  FPR( 150) 

COMMON  /I/  I 

COMMON  /I DSRU/  IDSRU(150) 
COMMON  /INO/  INO( 150) 

COMMON  / IRMIN/  IRMIN(150,4) 
COMMON  /IRMT/  IRMT 
COMMON  /ISCA/  ISCA( 150) 

REAL  ISCA 

COMMON  / ISET/  ISET(120,10) 
REAL  ISET 

COMMON  / ISETD/  ISETD(120) 
REAL  ISETD 
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COMMON  /L/  L 
COMMON  /LDERV/  LDERV 
COMMON  /LDSRL’/  LDSRU 
COMMON  /LO/  LO(IO) 

COMMON  / LRU/  LRU (150) 

COMMON  /LT/  LT 
COMMON  /MSE/  MSEC  120) 

REAL  MSE 
COMMON  /MXI/  MX I 
COMMON  /MXIRMT/  MXIRMT 
COMMON  /MXLT/  MXLT 
COMMON  /MXNP/  MXNP 
COMMON  /MXNS/  MXNS 
COMMON  /NBC/  NBC(IO) 

REAL  NBC 

COMMON  /NHB/  NHB(IO) 

COMMON  /NHI /  NHI ( 150) 

COMMON  /N1TEM/  N ITEM (150,5) 
REAL  NITEM 

COMMON  /NJA/  NJA( 150,4) 
COMMON  / NP/  NP 
COMMON  /NRM/  NRM(150) 
COMMON  /NRTS/  NRTSC 150) 
REAL  NRTS 

COMMON  /NRUC/  NRUC 
REAL  NRUC 
COMMON  /NS/  NS 
COMMON  /OFMCA/  OFMCAC 150) 
COMMON  /OST/  0ST(3) 

COMMON  /OSTC/  OSTC 
COMMON  / PIL'P/  PIUP 
COMMON  /QSA/  QSA(150,4,3) 
COMMON  /RM/  RM( 150) 

COMMON  /RMI/  RM 1(150, 10) 
INTEGER  RMI 

COMMON  /RSCA/  RSCA(150) 
COMMON  /RTS/  RTS (150) 
COMMON  /SA/  SA 
COMMON  /SAT/  SAT(IO) 

COMMON  /TDSRU/  TDSRU(ISO) 
COMMON  /TISQ/  TISQ(150) 
COMMON  /TNB/  TNB(IO) 
COMMON  /TOTT/  TOTT(5) 
COMMON  /UP/  UP (150) 

COMMON  /USE/  USE( 120,10) 
COMMON  /USED/  USED(120) 
COMMON  /WT /  WT( 150) 


L. 
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COMMON  /XFPR/  XFPR 
COMMON  /XITEMQ/  XITEMQ(150) 
COMMON  /XUC/  XUC 
COMMON  /YRSQ/  YRSQ(150) 
DIMENSION  DINFB ( 150 , 10) 
DIMENSION  DINFD( 150) 
DIMENSION  DNHNFB (.150,10) 
DIMENSION  DNHNFD( 150) 

REAL  NXXX2 

DIMENSION  RNHMH( 150,10) 


DO  520  IXXX1=1 ,MXI 
I=IN0(IXXX1) 

TDSRU( I )=0 . 

IF ( . NOT. (NHI ( I ) . NE . 0) )  GO  TO  510 

IF ( . NOT . ( LRU ( I ) . EQ . 0 . AND . LRU (NHI ( I ) ) . EQ . 1 ) )  GO  TO  500 
DO  260  NS=1 ,MXNS 

IF ( .NOT. (BTYPE(NS) .EQ. 3) )  GO  TO  210 

DNHNFB ( I, NS)=(FAIL(NHI(I) ,NS) -FAIL( I ,NS) )*( 1 .+FPRCNHI ( I ) 
+  ) )*OSTC 

DINFB (I ,NS)=FAIL(I ,NS)*( 1 .+FPR(NHI (I ) ) )*OSTC 
210  CONTINUE 

I F ( . NOT . ( BTYPE ( NS ) . NE . 3 ) )  GO  TO  240 

TEM01=0 . 

DO  220  B=1 ,MXNS 

IF ( .NOT. (NHB(B) .EQ.NS))  GO  TO  220 
TEM01=TEM01+AMAX1((FAIL(NHI(I) ,B)-FAIL(I ,B)),0. )•• 

+  NBC(B) 

220  CONTINUE 

DNHNFB ( I ,NS)=AMAX1 ( (FAIL(NHI (I ) ,NS) -FAIL(I ,NS) ) ,0. )* 

+  ( (FPR(NHI (I) )*XFPR+RTS(NHI (I) ) )*BRCT+(NRTS(NHI ( I ) )+ 

+  COND ( NH I ( I ) ) ) *OST ( LO ( NS ) ) ) +C IMF ( NS ) *TEMO 1 * ( ( RTS (NH I ( I ) 

+  )+FPR(NHI ( I ) )*XFPR)*CRCT+(NRTS (NHI ( I ) )+COND(NHI ( I ) ) )* 

+  (OST ( LO (NS  )  )+U ( FPR  (NHI  ( I ) )  -'••XFPR ) *CRCT ) ) 

TEM02=0 . 

DO  230  B=1 ,MXNS 

IF(. NOT. (NHB(B). EQ.NS))  GO  TO  230 
TEM02=TEM02+FAIL( I ,B)*NBC(B) 

230  CONTINUE 

DINFB (I ,NS)=FAIL(I ,NS)*( (FPR (NHI ( I ) )*XFPR+RTS ( I ) )*BRCT+ 
+  ( NRTS ( I ) +COND ( I ) )*OST ( LO ( NS ) ) ) +C IMF (NS ) *TEM02* ( ( RTS ( I ) 

+  +FPR ( NH I ( I ) ) *XFPR ) *CRCT+ ( NRTS ( I ) +COND ( I ) ) * ( OST ( LO ( NS ) ) 

+  +U(FPR(NHI(I))*XFPR)*CRCT)) 

240  CONTINUE 

RNHMH(I,NS)=0. 

IF(. NOT.  (FAIL(NHIU) , NS). GT. 0.001))  GO  TO  250 
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RN'HMH(I  ,NS)=AMIN1(FAIL(I  ,NS)/FAIL(NHI  (I)  ,NS) ,  1 .  )* 

+  ERHBI (NHI(I) ,NS) 

250  CONTINUE 

260  CONTINUE 

TEM03=0 . 

DO  270  NS=I ,MXNS 

TEM03=TEM03+AMAX1((FAIL(NHI(I) ,NS)-FAIL(I ,NS)) ,0. )*TNB(NS) 
+  *NRTS(NHI ( I ) )*DRCT(LO(NS ) ) 

270  CONTINUE 

DNHNFDC I )=TEM03 
TEM04=0 . 

DO  280  NS=1,MXNS 

TEM04=TEM04+FA I L( I , NS )*TNB (NS )*NRTS ( I )*DRCT( LO (NS ) ) 

280  CONTINUE 

DINFDCI )=TEM04 
TEM05=0 . 

DO  290  NP=1 ,MXNP 

TEM05=TEM05+TOTT(NP)*NITEM ( I ,NP) 

290  CONTINUE 

TEM06=0 . 

DO  300  NS=1 ,MXNS 

TEM06=TEM06+TNB (NS )*F(DINFB ( I , NS) ) 

300  CONTINUE 

TEM07=0 . 

DO  310  NS=1 ,MXNS 

TEM07=TEM07+ANIN1 ( FA I L ( I ,  NS) ,FAIL(NHI (I) ,NS) )*TNB (NS ) 

310  CONTINUE 

XITEMQ( I )=TEM05+TEM06+F(DINFD( I ) ) -TISQ( I )+12 . *NRUC*TEM07* 

+  ( 1 . -COND ( NH 1(1))) -NRUC*YRSQ ( I ) 

TF.M08=0 . 

DO  320  NS* 1 , MXNS 

TEM08=TEM08+TN8 (NS )*F ( DNHNFB ( I , NS) ) 

320  CONTINUE 

TEM09=0. 

DO  330  NS*  1,  MXNS 

TEM09=TEM09+AMAX1 ( (FAIL(NHI ( I ) ,NS) -FAIL( I ,NS) ) , 0 . )*TNB (NS) 
330  CONTINUE 

X I TEMQ (NHI (I ) ) =TEN0  8+F ( DNHNFD ( I ) ) -TI SQ (NHI ( I ) )  + 12 . *NRUC* 

+  TE MO 9 "-'•■(  1  .  -COND (NHI  ( I  ) ) )  -NRUC"YRSQ(NHI  (I ) ) 

TEM10=0 . 

DO  340  NS=1 ,MXNS 

TEM10=TEM10+AMAX1( (FAIL(NHI (I) ,NS)-FAIL(I ,NS) ) ,0 . )*TNB(NS) 
340  CONTINUE 

TEMP 1=12. *TEM 10 
TEM1 1=0 . 

DO  350  NS=1,MXNS 

TEM1 1=TEM1 1+AMIN 1 (FAIL(I ,NS) ,FAIL(NHI (I) ,NS) )*TNB(NS) 
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350  CONTINUE 

TEMP2= 1 2 . *TEM 1 1* ( 1 . -COND (NHI ( I ) ) ) 

TEN 12=0. 

DO  360  NS=1 ,MXNS 

TEM 1 2=TEM 1 2+TNB ( NS ) *F ( DNHNFB ( I , NS ) ) 

360  CONTINUE 

TEM 13=0. 

DO  370  NS=1 ,MXNS 

TEM 1 3=TEM 1 3+TNB ( NS ) *F ( D I NFB ( I , NS ) ) 

370  CONTINUE 

TDSRUA=(TEM12+F(DNHNFD(I ) ) )*(UP(NHI (I ) ) - UP ( I ) ) *XLE ARN (NH I ( I ) 
+  )*XUC - I SCA (NHI ( I ) ) + (TEM 1 3+F (DINFD ( I ) ) )*UP ( I )*XLEARN ( I ) * 

+  XUC -  I SCA ( I ) +TEMP 1* AMAX 1 ( (UP (NHI ( I ) ) -UP ( I ) ) , 0 . )*XUC* ( (NRUC* 

+  XLE ARN ( NH I ( I ) )  +  ( P I U  P - NRUC ) ) *COND (NHI ( I ) ) +P I UP* ( 1 . - 

+  COND (NHI ( I ) ) )*RM(NHI (I))) -RSCA(NHI (I) )+TEMP2*UP(I )*XUC* 

+  ( (NRUC*XLEARN ( I )+(PIUP-NRUC) )*COND(I )+PIUP*( 1 . -COND ( I ) )* 

+  RM(I ) ) -RSCA (I ) 

TEM 14=0. 

DO  380  NS=1 ,MXNS 

TEM  1 4=TEM  14+AM/.X  1  ( ( FA  I L  (  NH  I  ( I ) ,  NS )  -  FA  I L  ( I ,  NS ) ) ,  0 .  )  *TNB  ( NS ) 
+  * ( ( ( 1 . +FPR (NHI ( I ) )*XFPR ) *BCMH ( NH I ( I ) ) +RTS ( NH I ( I ) ) * 

+  BMH (NHI ( I ) ) )*BMF*BLR+NRTS (NHI ( I ) )* (DMH (NHI ( I ) )*DMF*DLR+ 

+  2 . *CPPD (LO (NS ) )* (WT(NHI ( I ) ) -WT( I ) ) )+COND (NHI ( I ) )* 

+  CPPD(LO(NS) )*(WT(NHI (I ) ) -WT(I ) )+SAT(NS)*( 1 . +FPR(NHI ( I ) )* 

+  XFPR)*2 . *C  P PC* ( VT ( NH I ( I ) ) -WT( I ) ) ) 

380  CONTINUE 

TEM 15=0. 

DO  390  NS= 1 , MXNS 

TEM 1 5=TEM 1 5+AM IN 1 (FAI L (NHI ( I ) , NS ) , FAI L( I , NS ) ) *TNB ( NS ) * 

+  ( ( ( 1 . +FPR (NHI ( I ) )*XFPR)*BCMH ( I )+RTS ( I )*BMH ( I ) )*BMF*BLR+ 

+  NRTS ( I ) * ( DMH ( I )*DMF*DLR+2 . *CPPD (LO (NS ) )*WT ( I ) )+COND ( I )* 

+  CPPD ( LO (NS ) )*WT ( I ) +SAT (NS )* ( 1 . +FPR (NHI ( I ) )*XFPR )*2 . * 

+  CPPC*WT ( I ) ) 

390  CONTINUE 

TDSRUB=12 . *PIUP*TEM14-0FMCA(NHI ( I ) )+12.*PIUP*TEM15-OFMCA( I ) 
NXXX 1 =NRM ( NH I ( I ) ) 

TDSRUC=0 . 

I F ( . NOT . ( NXXX 1 . GT . 0 )  1  GO  TO  470 

DO  450  IRMT=1 ,MXIRMT 

IF ( .NOT . ( IRMT . LE . NXXX1) )  GO  TO  460 
IF( . NOT. (IRMIN(NHI(I), IRMT) .EQ. 

+  RMI (NHI (I ) ,NS) ) )  GO  TO  440 

NXXX2=NJA(NHI(I) .IRMT) 

IF( . NOT. (NXXX2 . GT. 0) )  GO  TO  430 
DO  410  LT=1 ,MXLT 

IF( .NOT. (LT.LE.NXXX2))  GO  TO  420 
L=A(NHI (I ) , IRMT.LT) 
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DO  400  NS=1,MXNS 

TDSRUC=TDSRUC+U (QSA (NHI (I ) , IRMT ,  LT) - 
+  AINT(QSA(NHI(I),IRMT,LT)/ 100.)*100. )*TNB(NS)* 

+  (USE(L,NS)*RNHMH(I,NS)*ISET(L,NS)/BAA+USED(L)* 

+  AMIN1(FAIL(I,NS) ,FAIL(NHI(I) ,NS) )*NRTS CNHI (I ) )* 

+  DMH ( NHI ( I ) ) *DMF* I SETD  ( L ) / DAA ) *CSE ( L ) * ( 1 . +PIUP* 

+  MSE(L)) 

400  CONTINUE 

410  CONTINUE 

420  CONTINUE 

430  CONTINUE 

440  CONTINUE 

450  CONTINUE 

460  CONTINUE 

TDSRUC®- 1 . "TDSRUC 
470  CONTINUE 

TEM 16=0 . 

DO  480  NS=1 , MX'NS 

TEM 1 6=TEM 1 6+U ( FA I L ( I , NS ) ) *S AT (NS ) *TNB ( NS ) 

480  CONTINUE 

TDSRUD=PIUP*SA"TEM16 

TDSRU( I )=(TDSRUA+TDSRUB+TDSRUC+TDSRUD)/ 1000000. 

IF C .NOT. (TDSRUC I) .GT. -0.000001))  GO  TO  490 
TDSRUC  D=0. 

490  CONTINUE 

500  CONTINUE 
510  CONTINUE 
520  CONTINUE 

DO  999  IXXX=1 , MX I 

IDSRU  ( I XXX)— I NO  (IXXX) 

999  CONTINUE 
LD=LDSRU 

IF  ( PR.NTXX . NE . 0 )  LD=MAX0 ( LD , LDERV  ) 

CALL  TDSORTCTDSRU  , IDSRU  ,LD,MXI  ) 


RETURN 

END 
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SUBROUTINE  DXMIL 


C 

C*  COMPUTES  GLOBAL  SENSITIVITY  WITH  RESPECT  TO 
C*  MOD/ I  LABOR  HOURS 

.1.  j.  -i.  j.  j.  j.  j.  j.  _i.  .u  j.  .i.  »•_  y.  -i.  «t.  j.  .u  ,t.  j,  jj,  .i,  j,  ,i«  »i. 

C 

COMMON  /FINC/  FINC 
COMMON  /FR/  FR(3 , 5) 

COMMON  /IA/  I A 
COMMON  /LDERV/  LDERV 
COMMON  /M/  M 
COMMON  /MILR/  MILR(3) 

REAL  MILR 

COMMON  /MIMH/  MIMH(4,3,5) 

REAL  MIMH 
COMMON  /MXM/  MXM 
COMMON  /MXNP/  MXNP 
COMMON  /MXNS/  MXNS 
COMMON  /NIA/  NIA 
COMMON  /NP/  NP 
COMMON  /NPLT/  NPLT(5,I0) 

REAL  NPLT 
COMMON  /NS/  NS 
COMMON  /TDMIL/  TDM I L 
COMMON  /TDXMIL/  TDXMIL 
COMMON  /TNB/  TNB(IO) 

COMMON  /XMIL/  XMIL 


810625  085604052 


TEM04=0 . 

DO  240  NP-1 ,MXNP 
TEMO 1=0 . 

DO  210  NS=1 ,MXNS 

TEMO 1=TEM0 1+TNB (NS )*NPLT(NP , NS ) 

210  CONTINUE 
TEM03=0 . 

DO  230  M= 1 , MXM 
TEM02=0 . 

DO  220  IA=1 ,NIA 

TE  MO  2=TE  MO  2  +M I MH ( I A , M , NP ) *XM I L 
220  CONTINUE 

TEM03=TEM03+FR  (M ,  NP)--'MILR(M)  *TEM02 
230  CONTINUE 

TEM04=TEM04+TEM0 1*TEM03/ 1000000 . 

240  CONTINUE 
TDMIL=TEM04 
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TDXM I L=F I NC*TDM I L 


RETURN 

ENr 
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SUBROUTINE  OTABI 


810625  085608386 

PRINTS  A  SUMMARY  BY  TOP-LEVEL  * 

COST  ELEMENTS 

ATU  MOD  LCR  -  28  MAY  80  * 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FSEDC/  FSEDC 
COMMON  / 1 1 MC /  I IMC 
REAL  I IMC 
COMMON  /ISC/  ISC 
REAL  ISC 

COMMON  /MIC/  MIC 
REAL  MIC 

COMMON  /MTRC/  MTRC 
REAL  MTRC 
COMMON  /OC/  OC 
COMMON  /OFMC/  OFMC 
COMMON  /ONMC/  ONMC 
COMMON  /RSC/  RSC 
COMMON  /SEDC/  SEDC 
COMMON  /SEPC/  SEPC 
COMMON  /STDC/  STDC 
COMMON  /TERMH/  TERMH 
COMMON  /TERM I /  TERM I 
COMMON  /TSEC/  TSEC 

1  F0RMATC1H1 , 15X,50HOUTPUT  TABLE  1:  SUMMARY  BY  TOP-LEVEL  COST  ELEMEN 
+TS/24X , 33H ( IN  MILLIONS  OF  CONSTANT  D0LLARS)//8X, 12HPR0GRAM  COST , 5X 
+,11 HDEVELOPMENT , 3X , 1 OHPRODUCTION , 4X , 7HSUPP0RT , 12X , 5HT0TAL/ / ) 

2  FORMAT ( 2X , 20HFULL  SCALE  ENG.  DEVT, 5X ,F6 .  2 , 10X ,F4 . 2 , 8X , F4 . 2 , 12X , F6 . 
+2) 

3  FORMAT! 2X, 15HPR0DUCTI0N : PME  , 12X ,F4 . 2 , 8X,F6 . 2 , 8X ,F4 . 2 , 12X ,F6 . 2) 

4  FORMAT! 13X.7HOTHER*  ,9X,F4 . 2 ,8X,F6 . 2 ,8X,F4 . 2 , 12X.F6 . 2) 

5  FORMAT! 2X , lOHOPERATIONS , 1 7X , F4 . 2 , 1 OX , F4 . 2 , 6X , F6 . 2 , 1 2X , F6 . 2 ) 

6  FORMAT ! 2X , 1 6 HMOD/ INSTALLATION , I IX , F4 . 2 , 8X , F6 . 2 , 8X , F4 . 2 , 12X , F6 . 2 ) 

7  FORMAT ! 2X, 17HSPARES: INVESTMENT, 10X,F4 . 2 , 8X ,F6 . 2 , 8X ,F4 . 2 , 12X ,F6 . 2) 

8  FORMAT! 9X , 1 IHREPLACEMEN'T, 9X ,F4 .2,10X,F4.2,6X,F6.2,12X,F6.2) 

9  FORMAT ( 2X , 1 7HSUPP0RT  EQU I PMENT ,8X,F6.2,8X,F6.2,8X,F4.2,12X,F6.2) 

10  FORMAT ! 2X, 12H0N  EQUIPMENT, 15X ,F4 . 2 , 10X ,F4 . 2 ,6X ,F6 . 2 , 12X ,F6 . 2) 

11  FORMAT ! 2X , 1 3H0FF  EQUIPMENT, 14X ,F4 . 2 , 10X , F4 . 2 , 6X , F6 . 2 , 12X , F6 . 2) 

12  FORMAT ( 2X ,8HTRAINING, 19X,F4 .2,10X,F4.2,6X,F6.2,12X,F6.2) 

1 3  FORMAT ! 2X , 20H INVENTORY  MANAGEMENT , 7X , F4 . 2 , 1 OX , F4 . 2 , 6X , F6 . 2 , 1 2X , F6 . 
+2) 

14  FORMAT !2X, 16HTECHNICAL  ORDERS , 1 IX ,F4 . 2 , 8X,F6 . 2 , 8X ,F4 . 2 , 12X ,F6 . 2/ ) 
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15  FORMAT ( 12X , lOHTOTAL  COST , 5X ,F6 . 2 , 8X , F6 . 2 , 6X , F6 . 2 , 10X , F8 . 2) 

16  FORMAT 1/ / / / / 48H  *  "OTHER"  INCLUDES  SYSTEMS  TEST,  SYSTEM/PROJECT. 35 
+H  MANAGEMENT,  DATA  (EXCEPT  TECHNICAL, 36H  ORDERS),  AND  INDUSTRIAL  F 
+ACILITIES. ) 


TEMP1=TERMH/ lOOOOOO. 

TEMP2=TERMI/ 1 000000. 

TEMP3=0C/ 1000000. 

TEMP4=M I C/ 1000000. 

TEMP5=ISC/ 1000000. 

TEMPb=RSC/ 1000000. 

TEMP7=SEDC/ 1000000. 

TEMP8=SEPC/ 1000000. 

TEMP9=TSEC/ 1000000. 

TEMPA=ON'MC/  1000000. 

TEMPB=OFMC/ 1000000. 

TEMPC=MTRC/ 1000000. 

TEMPD=I I MC/ 1000000. 

TEMPE=STDC/ 1000000. 

TEMPF=FSE”'C/  1000000. 

T 1 =TEMP 1 +TEMP2+TEMP4+TEMP5+TEMP8+TEMPE 

T2=TEMP3+TEMPb+TF.MPA+TF.MPB+TEMPC+TEMPD 

T4=TEMPF+TEMP7 

T3=T4+T1+T2 


ZERO=0 . 00 
1 F ( PRNTXX . NE . 0 ) 
I F ( PRNTXX . NE . 1) 
IF (PRNTXX . NE . 0 ) 
I F (PRNTXX. NE. 1  ) 
I F ( PRNTXX . NE . 0 1 
IF ( PRNTXX. NE. 1) 
IF (PRNTXX. NE.O) 
I F( PRNTXX. NE. 11 
IF (PRNTXX. NE.O) 
I F( PRNTXX. NE. 1) 
IF (PRNTXX. NE.O) 
IFf PRNTXX. NE. 1) 
I F( PRNTXX. NE.O) 
IF( PRNTXX. NE. 1 ) 
I F ( PRNTXX .NE.O) 
IF( PRNTXX. NE. 1 ) 
I F ( PRNTXX .NE.O) 
IF ( PRNTXX. NE. 1 ) 
IF ( PRNTXX .NE.O) 
I F( PRNTXX. NE. 1) 


WRITE 

(  7, 

1) 

WRITE 

(Ob, 

1  ) 

WRITE 

(  7, 

2) 

WRITE 

(06, 

2) 

WRITE 

(  7, 

3) 

WRITE 

( 06  , 

3) 

WRITE 

(  7, 

4) 

WRITE 

(06, 

4) 

WRITE 

(  7, 

5) 

WRITE 

(06, 

5  ) 

WRITE 

(  7, 

6) 

WRITE 

(06, 

6 ) 

WRITE 

(  7  , 

7) 

WRITE (06, 

7) 

WRITE 

(  7, 

8) 

WRITE 

(06, 

8) 

WRITE 

(  7  , 

9) 

WRITE 

(06, 

9) 

WRITE 

(  7. 

10) 

WRITE 

( Ob  , 

10) 

TEMPF , EERO , ZERO , TEMPF 
TEMPF , ZERO , ZERO , TEMPF 
ZERO , TEMP  1 , ZERO , TEMP 1 
ZERO, TEMPI .ZERO, TEMPI 
ZERO ,TEMP2 , ZERO .TEMP2 
ZER0.TEMP2 , ZERO .TEMP2 
ZERO , ZERO , TEMP3 , TEMP3 
ZERO , ZERO ,TEMP3 ,TEMP3 
ZERO , TEMP4 , ZERO , TEMP4 
ZERO ,TEMP4 , ZERO .TEMP4 
ZERO , TEMPS , ZERO , TEMPS 
ZERO , TEMPS , ZERO , TEMP5 
ZERO  ,  ZERO ,TEMP6 ,TEMP6 
ZERO , ZERO , TEMP6 , TEMP6 
TEMP  7 , TEMP8 , ZERO , TEMP 9 
TEMP 7 ,TEMP8 , ZERO .TEMP9 
ZERO , ZERO , TEMPA , TEMPA 
ZERO , ZERO , TEMP A , TEMPA 
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IF (PRNTXX . NE . 0 )  WRITE(  7,11) 
IF ( PRNTXX . NE . 1 )  WR I TE ( 06 , 1 1 ) 
I F ( PRNTXX . NE . 0 )  WRITE(  7,12) 
IF ( PRNTXX. NE. 1)  VRITE(06,12) 
I F ( PRNTXX . NE . 0 )  WRITE(  7,13) 
I F ( PRNTXX . NE . 1 )  WRITE(06,13) 
I F ( PRNTXX . NE . 0 )  WRITE (  7,14) 
I F ( PRNTXX . NE . 1)  WRITE(06, 14) 
I F ( PRNTXX . NE . 0 )  WRITE!  7,15) 
IF ( PRNTXX. NE. 1)  VRITE(06,15) 
IF (PRNTXX . NE . 0)  WRITE!  7,16) 


ZERO , ZERO .TEMPB .TEMPB 
ZERO, ZERO, TEMPB.TEMPB 
ZERO , ZERO , TEMPO , TEMPO 
ZERO , ZERO , TEMPO , TEMPO 
ZERO , ZERO , TEMPD , TEMPO 
ZERO , ZERO , TEMPD , TEMPD 
ZERO , TEMPE , ZERO , TEMPE 
ZERO , TEMPE , ZERO , TEMPE 
T4.T1 ,T2 ,T3 
T4.T1 ,T2 ,T3 


RETURN 

END 
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SI  f? KOI 'T 1  NE  CTAB2 


810625  085622166 


PRINTS  PL.-'  r  FORM  MOD  I  FI  CATION/ I NSTALLATION  COSTS 


COMMON  ' PRNTXX  PKNTXX 
INTEGER  PRNTXX 
COMMON  ,'AKIT/  AKIT(4,5) 

COMMON  /FK,  KK (3,5) 

COMMON  • 1 A /  I A 
COMMON  / M /  M 

COMMON  /MIFIX.  M I F 1 X : 3 , 5  ) 

REAL  MIFIX 

COMMON  /Ml  LR  MILKO) 

REAL  MILK 

COMMON  / M I MH  /  M1MH(4.3,51 
REAL  M I MH 
COMMON  MXM  MXM 
COMMON  MXNP  MXNP 
COMMON  /MXNS/  MXNS 
COMMON  NT  A  NT  A 
COMMON  NP  NT 
COMMON  NPLT  NPI.Ti5.10) 

REAL  NPLT 

COMMON  NS.  NS 

COMMON  PN-'l'N  PN'  IN:  5.12: 

COMMON  TMiL  TMIL 
COMMON  TNB  TNBllO) 

COMMON  XMII,  XMIL 

1  FORMAT i  1  if  1  OCX . 5nHi TTPLT  TABLE  2:  PLATFORM  MODIFICATION/ I NSTALLATI 
+ON  COSTS  3 7X  ,  53H i  I N  MILLIONS  OF  CONSTANT  DOLLARS )//// 30X . 45H***REC 
+LRR1NG  MOD. 1  COST  TOTALS  BY  PLATFORM***// 26X , 5HF1XED , 22X , bHRETRO- , 
+3X , 5HPRDC- . 10X. 1H*  3X.5HPLAT- . 18X, 5HPLAT. , 4X.5HA-KTT, 13X.3HFIT.6X, 
+4HTI0N,  1IX,  1 H ■■■• ,  1X.30HA-KIT  PH'S  LABOR  COSTS  BY  AREA./3X , 4HF0RM ,  19X, 
+  5HPREP / .4X.bHK.QU  IP- ,3X. 5HM0D,  I .4X.5HMOD/ I .4X.5HMOD/I  ,  10X . 1 H*  .  IX  .  3  5 
+  1 1H- ) /3X.5H INDEX, IX, 13H PLATE  ORM  NAME . 4X , 5HRSTR . , 4X . 4HMENT , 5X . 5HLAB 
+OR , 4X , 8HTOTAL . 4X , 5HTOTAL , 4X , 5HTOTAL. IX , 1H* , IX , 7L.T.TENNA , 2X , 8HELEC . 
+  BOX  .  2X  .  7HCNTL .  HI) ,  2X  ,  7HCABL1 NG/ 3X.>+H(NP)/) 

2  FORMAT ( 3X, 13. 2X. 1 2A 1 , 3X . oi F8 . 3 , IX) , IX , F8 . 3 , 2X , F8 . 3 , IX , F8 . 3 , IX ,F8 . 3 
+ ) 

3  FORMAT ( /4X, 18( 1H-) , 1X,6(8( 1H-) , IX) , IX, 8( 1H-) ,2X,8(1H-1 , IX, 8( 1H-) , 1 
+X , h ( III- I / / 5 X , 1 1HCOST  TOTALS, 6X, 6 (F9 .3) , 1X.F9. 3, 1X.3F9.3) 


..ONLY  PRINT  THIS  TABLE  IF  OFF-LINE  OUTPUT  WAS  REQUESTED 


I F ( PRS'TXX .  EQ  .  0)  RETURN 

WRITE (  7,  1) 

T1 1=0 . 

T12=0 . 

TMI L=0 . 

T14=0. 

T15=0 . 

T16=0 . 

T1 7=0 . 

T18=0 . 

T19=0 . 

T20=0 . 

DO  330  NP=I , MXNP 
TEMO 1=0 . 

DO  210  NS=1,MXSS 

TEMO 1=TEM0 1+TNB (NS ) *NPLT(NP , NS ) 

210  CONTINUE 

TPLT=TEMO 1 
TEM02=0. 

DO  220  M= 1 , MXM 

TEMO  2=TEM02+FR ( M , NP ) * ( M I FI X ( M , NP ) *  1 000 . ) 

220  CONTINUE 

T 1  =TP  LT---TEM 02/1000000. 

TEM03=0. 

DO  230  I A= 1 , N I A 

TEM03=TEM03+AKIT( IA,NP) 

230  CONTINUE 

T  2  =T  P  LT*TE  M 03/ 1000000 . 

TEMO 5=0. 

DO  250  M= 1 , MXM 
TEM04=0 . 

DO  240  I A= 1 ,NIA 

TEM04=TEM04+MIMH ( I A ,M ,NP)*XMIL 
240  CONTINUE 

TEM05=TEM05+FR(M , NP )*MI LR(M)*TEM04 
250  CONTINUE 

T3=TPLT*TEM05/ 1000000 . 

TEM06=0 . 

DO  260  IA=1,NIA 

TEM06=TEM06+M IMH(IA,2,NP) *XM I L*M I LR ( 2 ) +AK IT ( I A , NP ) 
260  CONTINUE 
TEM07=0 . 

DO  270  IA=1 ,NIA 

TEM07=TEM07+MIMH( IA , 3 ,NP)*XMIL*MILR(3)+AKIT( IA ,NP) 
270  CONTINUE 

T4=TPLTS- (FR(2 ,NP)*( (MIFIX(2 ,NP)*1000 . )+TEM06)+FR(3 ,NP) 
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+  ( (MIF1X( 3, NP)* 1000. )+TEM07))/ 1000000. 

TEM08=0. 

DO  280  I A= 1 , N I A 

TE  M  0  8 =T  E  M  0  8 +M I MH  (  I A  ,  1  ,  NP  )*XM  I  L*.M  I  LR  ( 1  )+AK  IT  ( I A  ,  NP ) 

280  CONTINUE 

T5=TPI.T*FR(  I  , NP.l*(  (MIFIX(  1  ,NP)*1000  .  )+TEM08)/  1000000  . 

Tt>=TA+T5 
TEM09=0 . 

DO  290  M= 1 , MXM 

TE  M  0  9 =TE  MO  9 + F  R  (M.NFM  *>!  I  MH  ( 1 ,  M  ,  NP )  *XM I  L*M  I  LR  CM) 

290  CONTINUE 

T 7  =TP LT* < TE M 0 9 + AK I T ( 1  ,NP  ) )  /  1000000  . 

TEM 1 0=0 . 

DO  300  M= 1 . MXM 

TEMl('=TE.M]0-*-FR'  M.NP  )  *M  1  MH  (  2  ,  M  ,  NP  )  *XM  1  L*M  I  LR  f  M ) 

300  CONTINUE 

T8=TPLT" ITEM  1 0+AK IT(2 ,NP ) ) / 1 000000 . 

TEM 11=0. 

DO  310  M= 1 , MXM 

TEM 11 =TEM 1 1+FR ( M , NP  J *M I MH ( 3 , M , NP)*XM I L*M I LR ( M ) 

310  CONTINUE 

T9=TPLT* (TEM 1 l+AKITf  3 ,NP) )/ 1000000 . 

TEM 12=0. 

DO  320  M= 1 , MXM 

TEM  1 2=TF,M  1  2+FR  ( M  ,  NP  !*M  I  MH  (4  , M ,  NP )  ••XM I  L*M I  LR  ( M ) 

320  CONTINUE 

T 1 0=TPLT*  (  TF.M  1  2+AK I T( 4  ,  NP ) )  /  1000000  . 

WRITE (  7,  2)  NP , l PNOUN (NP,K1),K1=1,12),T1,T2,T3,T4,T5,T6,T7,T8, 
+  T9 ,T1 0 
T 1 1 =T 1 1 +T 1 
T12=T1 2+T2 
TMI L=TM I L+T3 
T14=T14+T4 
T15=T15+T5 
T16=T16+T6 
T1 7=T1 7+T7 
T18=T18+T8 
T19=T19+T9 
T20=T20+T10 
330  CONTINUE 

WRITE (  7,  3)  T11,T12,TMIL,T14,T15,T16,T17,T18,T19,T20 


1  9h 


U 


C 


RETURN 

END 


C*  ATI'  MOD  LCR  -  21  MAY  80 

C*  PRINTS  OPERATION  AND  LOGISTICS  SUPPORT 

C*  COST  ELEMENTS  -  PART  1 


COMMON  /  PRN'TXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /AFC/  AFC 
COMMON  /BAFC/  BAFC(6) 

COMMON  /BISC/  BISC(6) 

COMMON  /BOFMC/  BOFMC(6) 

COMMON  /BOLC/  BOLC(6) 

COMMON  /BONMC/  B0NMC(6) 

COMMON  /BRSC/  BRSC(6) 

COMMON  /ISC/  ISC 
REAL  ISC 

COMMON  / ISCB/  ISCB 
REAL  ISCB 

COMMON  /ISCD/  I SCD 
REAL  ISCD 

COMMON  /OFMC/  OFMC 
COMMON  /OFMCB/  OFMCB 
COMMON  /OFMCD/  OFMCD 
COMMON  /OLC/  OLC 
COMMON  /ONMC/  ONMC 
COMMON  /RSC/  RSC 

1  FORMAT( 1H1/35X,62H0UTPUT  TABLE  3:  OPERATION  AND  LOGISTICS  SUPPORT 
+  COST  ELEMENTS/ 50X,33H( IN  MILLIONS  OF  CONSTANT  D0LLARS)//24X, 1H! ,2 
+7X.57H!  INDEP  CIMF  SATEL  BASE  !  AIR  GROUND  !  DEPOT/ 1 1 
+X , 98HCOST  ELEMENT  !  INITIAL  RECURRING  TOTAL  !  BASES  BASES  BA 
+SES  TOTAL  !  BASES  BASES  !  T0TAL/24X, 1H! , 27X, 1H! , 31X, 1H! ,  16X, 
+1HI/10X, 110(lH-)/24X,lH! ,27X,1H! ,31X, 1H! , 16X, 1H! ) 

2  FORMAT ( 7X , 18HOPERATIONS  LABOR  ! , 9X, 2 (F6 . 2 , 3X) , 1H ! , 3 (F6 . 2 , 2X) ,F6 . 2 , 
+  1X, 1H! , 1X,2(F6.2, IX) , IX,  1H! ) 

3  FORMAT ( 7X , 1 OHADDED  FUEL, 7X, 1H! , 9X, 2 (F6 . 2 , 3X) , 1H! , 3 (F6 . 2 , 2X) ,F6 . 2 , 1 
+X.1H! ,1X,2(F6.2,1X),1X,1H!) 

4  FORMATC7X, 18HINITIAL  SPARES  ! , IX , F6 . 2 , 1 IX , F6 . 2 , 3X , 1H ! , 3 (F6 . 2 , 2X) 
+,F6.2, IX, 1H! ,1X,2(F6.2,1X),1X,1H! , 1X.F6.2) 

5  FORMAT ( 7X , 18HREPLACE .  SPARES  ! , 9X, 2 (F6 . 2 , 3X) , 1H ! , 3(F6 . 2 , 2X) , F6 . 2 , 
+1X.1H! ,1X,2(F6.2,1X),1X,1H!) 

6  FORMAT(7X, 18HON-EQUIP.  MAINT.  ! ,9X,2(F6 . 2 , 3X) , 1H! , 3(F6 . 2 ,2X) ,F6. 2, 
+1X.1H! , 1X,2(F6.2,1X),1X,1H!) 

7  FORMAT(7X, 18H0FF-EQUIP.  MAINT. ! ,9X,2(F6.2,3X) , 1H! ,3(F6.2,2X) ,F6.2, 
+1X, 1H! , IX, 2(F6 . 2 , IX) , IX, 1H! , 1X,F6 . 2) 
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c 

c 

c 

C . ONLY  PRINT  THIS  TABLE  IF  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F  ( PR.NTXX  .  EQ .  0  )  RETURN 
C 

WRITE!  7,  1) 

Tl=OLC/ lOOOOOO . 

T2=B0LC(1)/ 1000000. 

T3=BOLC(2)/ 1000000. 

T4=B0LC( 3)/ 1000000. 

T5=B0L0 ( 4  i  / 1 000000 . 

T6=BOLC(5 1/1000000. 

T7=B0LC(o 1/1000000. 

WRITE f  7,  2;  T’ ,TI ,T2 ,T3 ,T4 ,T1 ,T5 ,T6 
T1=AFC/ lOOOOOO. 

T2=BAFC ( 1 ) /lOOOOOO. 

T3=BAF0 ( 2 ) /lOOOOOO. 

T4=BAFC(3)/ lOOOOOO. 

T5=BAFC(4 1/3000000. 

T6=BAFC(.  5)/  lOOOOOO. 

T7=BAFC(. 6) 'lOOOOOO. 

WRITE)  7,  3'  T1  ,TI  ,T2,T3,T4,T1  ,T5,Tt> 

Tl=l SC/ lOOOOOO. 

T2=BISC( 1 )/ lOOOOOO. 

T3=B ISC (2)/ lOOOOOO. 

T4=BISCl 31/ lOOOOOO. 

T5=ISCB/ 1000000 . 

T6=BISC(4)/ lOOOOOO. 

T7=B1SC( 5)/ lOOOOOO. 

T8=B I  SC(f>  1  /  lOOOOOO. 

T9=ISCD/ lOOOOOO. 

WRITE  (  7.  4  j  T1 ,T1 ,T2 ,T3 ,T4 ,T5 ,Tb ,T7 ,T9 
T1=RSC/ lOOOOOO. 

T2=BRSC(l)/30 00000. 

T3=BRSC (2)/ lOOOOOO . 

T4=BRSC(3 )/1000000. 

T5=BRSC (4 1 / 1 000000 . 

T6=BRSC ( 5 ) / lOOOOOO . 

T7=BRSC (6 ) / lOOOOOO . 

WRITE/  7,  5)  T1,T1,T2,T3,T4,T1,T5,T6 
T1=0NMC  ,/ lOOOOOO  . 

T2=B0NMC( 1 )/ lOOOOOO. 

T3=BONMC(2 1/1000000. 

T4=B0NMC(3 1/1000000. 

T5=B0NMC (4) /lOOOOOO . 

T6=B0NMC (51/ lOOOOOO . 
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T7=B0NMC (6)/ 1000000. 

WRITE(  7,  6)  T1,T1,T2,T3,T4,T1,T5,T6 
T1=0FMC/ 1000000. 

T2=BOFMC(l)/ 1000000. 

T3=B0FMC (2)/ 1000000. 

T4=B0FMC ( 3 ) / 1000000 . 

T5=OFMCB/ 1000000. 

T6=BOFMC (4) / 1000000 . 

T7=B0FMC (5 )/ 1000000. 

T8=B0FMC (6 ) / 1000000  . 

T9=OFMCD/ 1000000. 

WRITE (  7,  7)  T1  ,T1 ,T2 ,T3 ,T4 ,T5 ,T6 ,T7 ,T9 

RETURN 

END 
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SUBROUTINE  OTAB3B 


ATI'  MOD  LCR  -  21  MAY  80 

PRINTS  OPERATION  AND  LOGISTICS  SUPPORT 

COST  ELEMENTS  -  PART  2 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /AFC/  AFC 
COMMON  /BAFC/  BAFC ( 6 ) 
COMMON  / B 1 1 MC /  BIIMCI6) 
COMMON  /BISC/  B I  SC ( 6 ) 
COMMON  /BMTRC/  BMTRC 
COMMON  /BOFMC/  BOFMC(b) 
COMMON  /BOLC/  B0LC(6) 
COMMON  /BONMC/  BONMC (6) 
COMMON  /BPLAT/  BPLAT  (TO) 
INTEGER  BPLAT 
COMMON  ,/BRSC/  BRSC  (6 ) 
COMMON  /BSECC/  BSECC(6) 
COMMON  /BSECP/  BSECPC6) 
COMMON  /BTCDI /  BTCDI 
COMMON  / BTDC/  BTDC(IO) 
COMMON  /BTDC A/  BTDCA 
COMMON  /BTDCC/  BTDCC 
COMMON  /BTDCG/  BTDCG 
COMMON  /  BTDC  /  BTDC  I 
COMMON  /BTDCMy  BTDCM 
COMMON  /BTDCS/  BTDCS 
COMMON  /BTDCT/  BTDCT 
COMMON  /BTYPE/  BTYPE  (TO) 
INTEGER  BTYPE 
COMMON  /DMTRC/  DMTRC 
COMMON  /DT DC/  DTDC 
COMMON  /II MC /  I IMC 
REAL  I IMC 

COMMON  / I IMCB/  IIMCB 
REAL  IIMCB 

COMMON  / 1 1 MCD/  IIMCD 
REAL  IIMCD 

COMMON  / 1 1 MC  I  /  1 1 MCI 
REAL  II MCI 

COMMON  / I IMCR/  IIMCR 
REAL  IIMCR 

COMMON  / IMTRC/  IMTRC 


r 


REAL  IMTRC 

COMMON 

/ISC/  ISC 

REAL  ISC 

COMMON 

/ISCB/ 

ISCB 

REAL  ISCB 

COMMON 

/ISCD/ 

ISCD 

REAL  ISCD 

COMMON 

/MTRC/ 

MTRC 

REAL  MTRC 

COMMON 

/MXNS/ 

MXNS 

COMMON 

/NS/  NS 

COMMON 

/OFMC/ 

OFMC 

COMMON 

/OFMCB/ 

OFMCB 

COMMON 

/OFMCD/ 

OFMCD 

COMMON 

/OLC/  OLC 

COMMON 

/ON'MC/ 

ONMC 

COMMON 

/RMTRC/ 

RMTRC 

COMMON- 

/RSC/  RSC 

COMMON 

/SECBC/ 

SECBC 

COMMON- 

/SECBP/ 

SECBP 

COMMON 

/SECC/ 

SECC 

COMMON- 

/SECDC/ 

SECDC 

COMMON 

/SECDP/ 

SECDP 

COMMON 

/SECIC/ 

SECIC 

COMMON 

/SECIP/ 

SECIP 

COMMON 

/SECP/ 

SECP 

COMMON- 

/SECRC/ 

SECRC 

COMMON 

/SECRP/ 

SECRP 

COMMON 

/STDC/ 

STDC 

COMMON- 

/STDCI/ 

STDCI 

COMMON 

/STDCR/ 

STDCR 

COMMON 

/TNB/  TNB(IO) 

1  FORMAT ( 7X, 18HSUPP0RT  EQUIPMENT! ,27X, 1H! ,31X, 1H! , 16X, 1H! ) 

2  FORMAT (7X.18H  COMMON  ! , IX ,F6 . 2 , 2X , 2 (F6 . 2 , 3X) , 1H ! , 3 (F6 . 2 , 2 

+X) ,F6.2, IX, 1H! , 1X,2(F6.2,1X), IX, 1H! , 1X.F6.2) 

3  FORMATC7X, 18H  PECULIAR  ! , IX , F6 . 2 , 2X,2 (F6 . 2 , 3X) , 1H ! , 3 (F6 . 2 , 2 

+X)  ,F6.2, 1X,1H.MX,2(F6.2,1X),1X,1H!  .1X.F6.2) 

4  FORMAT (7X.18H INVENTORY  MANAG.  ! , IX, F6 . 2 , 2X , 2 (F6 . 2 , 3X) , 1H ! , 3 (F6 . 2 , 2 
+X) ,F6 . 2, IX, 1H! , 1X,2(F6 . 2, IX) , IX, 1H! , IX, F6. 2) 

5  FORMAT(7X, 18HMAINT.  TRAINING*  ! , IX , F6 . 2 , 2X , 2 (F6 . 2 , 3X) , 1H ! , 3 (6H  -- 

+  ,2X) ,Ft .2, IX, 1H! ,1X,2(6H  --  , IX) , IX, 1H! , IX, F6 . 2) 

6  FORMAT! 7X , 18HTECH.  DATA  ! , IX , F6 . 2 , 2X, 2 (F6 . 2 , 3X) , 1H ! , 3 (F6 . 2 , 2 

+X) ,F6.2,1X,1H! ,1X,2(F6.2,1X),1X,1H! , 1X.F6.2) 

7  FORMAT! 10X, liO(lH-)) 

8  FORMAT (24X.1H! ,27X,1H! ,31X,1H! , 16X, 1H! /12X,6HTOTALS,6X, IH! ,IX,F6.2 
+,2X,2(F6.2,3X),1H! ,3(F6.2,2X),F6.2,1X,1H! , IX ,F6 . 2 , IX, F6 . 2 ,2X, 1H ! ,1 
+X.F6.2 ///) 
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t 


o  o  o  o 


9  F0RMAT(2X, 1H( , 1H*,47H  MAINT.  TRAINING  IS  ALLOCATED  TO  BASE  TOTAL  A 
+ND.58H  DEPOT  TOTAL  BUT  IS  NOT  FURTHER  ALLOCATED  AMONG  BASE  TYPES,/ 
+/) 

10  FORMAT (24X.16HNUMBER  OF  BASES : /24X , 16 ( 1H- ) //28X , 9HINDEP .  =  ,F5.0,9 
+X, 15HAIR  BASES  =  , F5 . 0//28X, 9HCIMF  =  ,F5 . 0 , 9X, 15HGR0UND  BASES 
+  =  ,F5 . 0/66X, 5 ( 1H- ) /28X, 9HSATEL.  =  ,F5 . 0 , 9X, 15HTOTAL  =  ,F5. 

+0/37X,5( 1H- ) /28X , 9HTOTAL  =  ,F5.0) 


-ONLY  PRINT  THIS  TABLE  IF  OFF-LINE  OUTPUT  WAS  REQUESTED 
IF (PRNTXX . EQ . 0 )  RETURN 


WRITE (  7,  1) 

T1=SECIC/ 1000000  . 

T2=SECRC/ 1000000 . 

T3=SECC/ 1000000. 

T4=BSECC(1)/ 1000000. 

T5=BSECC (2 )/1000000. 

T6=BSECC(3)/ 1000000. 

T7=SECBC/ 1000000. 

T8=BSECC(4)/1000000. 

T9=BSECC(5)/ 1000000. 

T10=BSECC (6 ) / 1000000 . 

T11=SECDC/ 1000000. 

WRITE (  7,  2)  Tl,T2,T3,T4,T5,T6,T7,T8,T9,Tll 
T1=SECIP/ 1000000. 

T2=SECRP/ 1000000. 

T3=SECP/ 1000000. 

T4=BSECP ( 1 )/ 1000000  . 

T5=BSECP(2 )/ 1000000 . 

T6=BSECP(3 ) / 1000000 . 

T7=SECBP/ 1000000. 

T8=BSECP(4)/ 1000000 . 

T9=BSECP(5 ) / 1000000 . 

T10=BSECP(6 ) /1000000. 

T11=SECDP/ 1000000. 

WRITE/  7,  3)  T1,T2,T3,T4,T5,T6,T7,T8,T9,T11 
T1=I IMCI / 1000000 . 

T2=IIMCR/ 1000000. 

T3=IIMC/ 1000000. 

T4=BIIMC(1 1/1000000. 

T5=BI IMC(2 )/ 1000000 . 

T6=BI IMC ( 3) / 1000000 . 

T7=IIMCB/ 1000000. 

T8=BI IMC(4 ) / 1000000 . 

T9=BI IMC( 5 ) / 1000000  . 


T10=BI IMC (6) / 1000000 . 

T11=I IMCD/ 1000000 . 

WRITE (  7,  4)  T1 ,T2 ,T3 ,T4 ,T5 ,T6 ,T7 ,T8 ,T9 ,T11 
T1=IMTRC/ 1000000. 

T2=RMTRC/ 1000000. 

T3=MTRC/ 1000000. 

T7=BMTRC/ 1000000. 

T11=DMTRC/ 1000000. 

WRITE (  7,  5)  T1 ,T2 ,T3 ,T7 ,T11 
TEMO 1=0 . 

DO  210  NS=1 ,MXNS 

IF(.NOT. (BTYPE(NS) . EQ. 1))  GO  TO  210 
TEMO 1=TEM0 1+BTDC (NS ) 

210  CONTINUE 
BTDCI=TEM01 
TEM02=0 . 

DO  220  NS=1 ,MXNS 

IF( .NOT. (BTYPE(NS) . EQ. 2) )  GO  TO  220 
TE.M02=TEM02+BTDC  (NS  ) 

220  CONTINUE 
BTDCC=TEM02 
TEM03=0 . 

DO  230  NS=1 ,MXNS 

IF( . NOT. (BTYPE (NS) . EQ . 3) )  GO  TO  230 
TEM03=TEM03+BTDC (NS ) 

230  CONTINUE 
BTDCS=TEM03 
TEM04=0 . 

DO  240  NS=1 ,MXNS 

TEM04=TEM04+BTDC (NS ) 

240  CONTINUE 
BTDCT=TEM04 
TEM05=0 . 

DO  230  NS=1 ,MXNS 

IF( .NOT. (B PLAT (NS) . EQ . 1) )  GO  TO  250 
TEM05=TEM05+BTDC(NS) 

250  CONTINUE 
BTDCA=TEM05 
TEM06=0 . 

DO  260  NS-l.MXNS 

IF( .NOT. (B PLAT (NS) .EQ. 2) )  GO  TO  260 
TEM06=TEM06+BTDC(NS) 

260  CONTINUE 
BTDCG=TEM06 
TEMO 7=0. 

DO  270  NS=1 ,MXNS 

IF( .NOT. (B PLAT (NS) .EQ. 3) )  GO  TO  270 


TEMO  7=TEM0  7+BTDC (NS ) 

270  CONTINUE 
BTDCM=TEM07 
DTDC=STDC - BTDCT 
T1=STDCI/ 1000000. 

T2=STDCR/ 1000000. 

T3=STDC/ 1000000. 

T4=BTDCI/ 1000000. 

T5=BTDCC/ 1000000. 

T6=BTDCS/ 1000000. 

T7=BTDCT/ 1000000. 

T8=BTDCA/ 1000000. 

T9=BTDCG/ 1000000. 

T10=BTDCM/ 1000000. 

T11=DTDC/ 1000000. 

VRITE(  7,  6)  T1 ,T2 ,T3 ,T4 ,T5 ,T6 ,T7 ,T8 ,T9 ,T11 
WRITE (  7,  7) 

TEMP 1=( ISC+SEC I C+SEC I P+IMTRC+STDCI+I IMCI ) / 1000000. 

TEMP2= ( OLC+AFC+RSC+ONMC+OFMC+SECRC+SECRP+RMTRC+STDCR+1 I MCR ) / 

+  1000000. 

TEMP3=(0LC+AFC+ISC+RSC+0NMC+0FMC+SECC+SECP+MTRC+STDC+IIMC)/ 

+  1000000. 

TEMP4=f BOLC ( 1 )+BAFC ( 1 )+BISC( 1 )+BRSC( 1 )+BONMC( 1 )+BOFMC( 1 )+BSECC (1 )+ 
+  BSECP ( 1 )+B I IMC( 1 )+BTCDI )/ 1000000 . 

TEMP5=(B0LC (2 )+3AFC (2 )+BISC ( 2)+BRSC (2)+BONMC(2)+BOFMC(2 )+BSECC (2 )+ 
+  BSECP(2)+BI IMC(2 l+BTDCC ) / ' 000000 . 

TEMP6= ( BOLC ( 3 )+BAFC (3)+BTSC(3) +BRSC ( 3 )+BONMC ( 3 ) +BOFMC (3)+BSECC(3)+ 
+  BSECPf  3 )+BI IMC ( 3 )+BTDCS) / 1000000 . 

TEMP7=(0LC+AFC+ISCB+RSC+0NMC+0FMCB+SECBC+SECBP+I IMCB+BMTRC+BTDCT) / 
+  1000000. 

T£MP8=(B0EC(4)+BAFC(4)+BISC(4)+BRSC(4)+B0NMC(4)+B0FMC(4)+BSECC(4)+ 
+  BSECP(4)+BI IMC(4)+BTDCA)/ 1000000. 

TEMP9=( BOLC (5 )+BAFC (5 )+BISC (5 )+BRSC(5 )+B0NMC(5 )+BOFMC (5 )+BSECC (5 )+ 
+  BSECP (5 )+B I IMC (5 )+BTDCG) / 1000000 . 

TEM10=(B0LC(6 )+BAFC(6)+BISC(6)+BRSC(6)+BONMC(6)+BOFMC(6)+BSECC(6)+ 
+  BSECP ( 6 )+B I IMC ( 6 )+BTDCM) / 1000000 . 

TEM1 1=( ISCD+OFMCD+SECDC+SECDP+I IMCD+DMTRC+DTDC) / 1000000 . 

WRITE (  7,  8}  TEMPI, TEMP2 ,TEMP3 ,TEMP4 ,TEMP5 ,TEMP6 ,TEMP7 ,TEMP8 , 

+  TEMP9.TEM11 
WRITE (  7,  9) 

TEM08=0 . 

DO  280  NS=  1 ,  MXNS 

IF( .NOT. (BTYPE(NS) .EQ. 1))  GO  TO  280 
TEM08=TEM08+TNB (NS) 

280  CONTINUE 
TNIB=TEM08 
TEM09=0 . 


DO  290  NS=1 ,MXNS 

IF C .NOT. (BTYPE(NS) .EQ. 2) )  GO  TO  290 
TEMO  9  =TEMO  9  +TN  B (NS ) 

290  CONTINUE 
TNCB=TEM09 
TEM10=0 . 

DO  300  NS=1 ,MXNS 

IF ( .NOT. (BTYPE(NS) .EQ.3))  GO  TO  300 
TEM 1 9=TEM 1 0+TN  B ( NS ) 

300  CONTINUE 
TN'SB=TEM10 
TEM 11=0. 

DO  310  NS=1 ,MXNS 

IF C  NOT. (BPLAT(NS) .EQ. 1))  GO  TO  310 
TEM 1 1 =TEM 1 1 +TNB ( NS ) 

310  CONTINUE 
TNAB=TEM1 1 
TEM12=0 . 

DO  320  NS=1,MXNS 

IF( .NOT. (BPLAT(NS) .EQ.2) )  GO  TO  320 
TEM 1 2=TEM 1 2+TNB ( NS ) 

320  CONTINUE 
TNGB=TEM12 
TEM 13=0. 

DO  330  NS=1 ,MXNS 

IF(. NOT. (BPLAT(NS). EQ.3))  GO  TO  330 
TEM13=TEM13+TNB(NS) 

330  CONTINUE 
TNMB=TEM13 

TEMPA=TN I B+TNCB+TNSB 
TEMPB=TNAB+TNGB+TNMB 

WRITE(  7,10)  TNIB ,TNAB ,TNCB ,TNGB ,TNSB ,TEMPB ,TEMPA 

RETURN 

END 
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SUBROUTINE  OTAB3C 


C 

c*-'- 

C* 

C* 

c* 

c** 

c 


810625  085702409 


ATU  MOD  LCR  -  21  MAY  80 

PRINTS  OPERATION  AND  LOGISTICS  SUPPORT 

COST  ELEMENTS  -  PART  3  -  FOR  TERMINAL  OUTPUT  ONLY 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /AFC/  AFC 
COMMON  /BAFC/  BAFC(6) 
COMMON  / B 1 1 MC /  BIIMC(6) 
COMMON  /BISC/  BISC(6) 
COMMON  / BOFMC/  BOFMC(6) 
COMMON  / BOLC/  BOLC(6) 
COMMON  / BONMC /  BONMC(6) 
COMMON  /BPLAT/  BPLAT(IO) 
INTEGER  BPLAT 
COMMON  /BRSC/  BRSC(6) 
COMMON  /BSECC/  BSECC(6) 
COMMON  /BSECP/  BSECP(6) 
COMMON  /BTDC/  BTDC(IO) 
COMMON  /BTDCA/  BTDCA 
COMMON  /BTDCG/  BTDCG 
COMMON  /BTDCM/  BTDCM 
COMMON  /BTDCT/  BTDCT 
COMMON  /BTYPE/  BTYPE (10) 
INTEGER  BTYPE 
COMMON  /DMTRC/  DMTRC 
COMMON  /DTDC/  DTDC 
COMMON  / I IMC/  I IMC 
REAL  I IMC 

COMMON  / I IMCD/  IIMCD 
REAL  IIMCD 
COMMON  /II MC I /  1 1 MCI 
REAL  1 1 MCI 

COMMON  / I IMCR/  IIMCR 
REAL  IIMCR 

COMMON  / IMTRC/  IMTRC 
REAL  IMTRC 
COMMON  /ISC/  ISC 
REAL  ISC 

COMMON  / ISCD/  ISCD 
REAL  ISCD 

COMMON  /MTRC/  MTRC 
REAL  MTRC 


COMMON  /MXNS/  MXNS 
COMMON  /NS/  NS 
COMMON  /OFMC/  OFMC 
COMMON  /OFMCD/  OFMCD 
COMMON  /OLC/  OLC 
COMMON  /ONMC/  ONMC 
COMMON  / RMTRC /  RMTRC 
COMMON  /RSC/  RSC 
COMMON  /SECC/  SECC 
COMMON  /SECDC/  SECDC 
COMMON  /SECDP/  SECDP 
COMMON  /SECIC/  SECIC 
COMMON  /SEC IP/  SEC IP 
COMMON  /SECP/  SECP 
COMMON  /SECRC/  SECRC 
COMMON  /SECRP/  SECRP 
COMMON  /STDC/  STDC 
COMMON  /STDC I /  STDC I 
COMMON  /STDCR/  STDCR 
COMMON  /TNB/  TNB(IO) 

REAL  IT1 
REAL  ITIO 
REAL  ITI1 
REAL  IT2 
REAL  IT3 
REAL  IT8 
REAL  IT9 
REAL  JT1 
REAL  JT11 
REAL  JT2 
REAL  JT3 
REAL  KT1 
REAL  KTIO 
REAL  KT11 
REAL  KT2 
REAL  KT3 
REAL  KT8 
REAL  KT9 

1  FORMAT! 1H1//9X.62HOUTPUT  TABLE  3:  OPERATION  AND  LOGISTICS  SUPPORT 
+  COST  ELEMENTS/23X , 33H( IN  MILLIONS  OF  CONSTANT  DOLLARS) // 18X , 1H !, 2 
+7X.25H!  AIR  GROUND  !  DEPOT/5X , 66HC0ST  ELEMENT  !  INITIAL  RECU 
+RRING  TOTAL  !  BASES  BASES  !  TOTAL/ 18X, 1H! ,27X, 1H! ,  16X, 1HI/4X, 
+67(lH-)/18X, 1H! ,27X, 1H! ,16X,1H! ) 

2  FORMAT! IX, 18HOPERATIONS  LABOR  ! ,9X,2(F6.2,3X) , 1H! , 1X,2(F6.2, IX) , IX 
+  ,  1H! ) 

3  FORMAT! IX, 10HADDED  FUEL, 7X , 1H! , 9X , 2 (F6 . 2 , 3X) , 1H ! , IX , 2 !F6 . 2 , IX) , IX , 
+  1H! ) 
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4  FORMAT! IX,  18HISTTI AL  SPARES  ! , IX ,F6 . 2 , 11X.F6 . 2 , 3X , 1H< , IX , 2(F6 . 2 , 
+ 1 X  j , IX,  Hi' , IX. Fo. 2) 

9  FORMAT ( 1 X, 18HREPLACE.  SPARES  l ,9X ,2(F6 . 2 , 3X) , IH ! , IX , 2 (F6 . 2 . IX) , IX 

6  FORMAT ( IX, I ti HON -EQUIP.  MAINT.  ! , 9X,2(F6 . 2 , 3X) , IH ’ , IX , 2 (F6 . 2 , IX) , IX 
+  ,  HIM 

7  FORMAT ( 1 X, 18HOFF -EQUIP.  MAINT . ! ,9X ,2(F6 . 2 , 3X) , IH ! , IX , 2(F6 . 2 , IX) , IX 
+  ,  1H  !  ,  IX, Fb  .2  s! 

8  FORMAT ( IX, 16HSUPP0RT  EQUIPMENT! ,27X, IH! , I6X, IH! ) 

9  FORMAT  (IX,  3  811  COMMON  ! , IX ,F6 . 2 , 2X , 2 (F6 . 2 , 3X) , IH ! , IX , 2 fF6 . 

+2, IX) . IX, IH! , 1X.F6.2) 

10  FORMAT (IX, I8H  PECULIAR  ! , IX ,F6 . 2 , 2X , 2 (F6 . 2 , 3X) , IH ! , IX , 2 ( Fb . 

+2, IX) ,1X,1H! , 1 X , F  b . 2 ) 

11  FORMAT ( IX, 18H INVENTORY  MANAG .  ! , IX ,F6 . 2 , 2X , 2 (F6 . 2 , 3X) , 2H ! , IX , 2 (F6 . 
+2, IX), IX. IH! , 1X.F6.2) 

12  FORMAT ( IX , 1 SHMA I NT .  TRAINING  ! , IX ,Ffe . 2 , 2X , 2(F6 . 2 , 3X ) , IH ! . 16X , IH ! , 
+1X.F6.2) 

13  FORMAT (IX, I 8HTECH .  DATA  ! , IX ,F6 . 2 , 2X , 2(F6 . 2 , 3X) , IH ! , IX , 2i F6 . 

+2, IX) , IX, IH! , IX.F6.2) 

14  FORMAT) 4X , 74 (  1 H  -  ) ) 

1 5  FORMAT) bX , oHTOTALS , 6X , IH ! , IX , Fb . 2 , 2X , 2 (F6 . 2 , 3X) , IH ! , IX , 2 (F6 , 2 , IX) , 
+1X, IH! , 1X.F6.2///) 

lb  FORMAT) 24X, 16HNTMBER  OF  BASES : / 24X , I  6 ( 1 h- ) / /28X , 9HINDEP .  =  ,F5. 0,9 
+X , 1 5HAI R  BASES  =  , F5 . 0/ / 28X , 9HC IMF  =  ,F5 .0 ,9X , 15HGROUND  BASES 

+=  , F5 . 0/ bbX . 5 ( IH- ) / 28X , 9HSATEL .  =  ,F5 . 0 , 9X , 1 5HTOTAL  =  ,FS. 

+0/  37X ,  5  1.  IH  -  )  '  28X ,  9HTOTAL  =  ,F5.0) 


I  Fl.  PRSTXX.SE.  1)  WRITE  (Ob,  1) 

AT1=0I.C/ I  000000. 

AT?=B01,C(  4)  ./ 1000000 . 

ATb=BOLO( 5 )/ 1000000 . 

AT7=B0LC)b)/T  000000. 

I F ( PRNTXX . NE . 1)  VRITE(06,  2)  ATI ,AT1 , AT5 , AT6 
BT1=AF0/ 1000000  . 

BTS=BAFC(4 ) / 1000000. 

BT6=BAFC( 5 )/ 1000000. 

BT7=BAFC( 6)/ 1000000. 

IF(PRNTXX.SE. 1 )  WRITE (06 ,  3)  BT1 ,BT1 ,BT3 ,BT6 
cti=isc/ ioooooo. 

CTb=B I  SC ( 4  )  / IOOOOOO . 

CT7=BISC( 5)/ IOOOOOO. 

CT8=B  1  SC ( t>  I  /  IOOOOOO  . 

CT9=  1  MCI)/  IOOOOOO. 

IFi PRSTXX.SE. 1)  WRITE (06 ,  4)  CT1 ,CTl ,CT6 ,CT7 ,CT9 
DTI -KSC/ IOOOOOO . 
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DT5=BRSC (4 ) / 1000000 . 

DT6=BRSC (5)/ 1000000. 

DT7=BRSC (6 ) /1000000. 

IF (PRNTXX . NE . 1 )  WRITE(06,  5)  DTI , DTI ,DT5 ,DT6 
F.T1=0NMC/  1000000. 

ET5=B0.NMC  (4)/ 1000000. 

ET6=B0.\'NC ( 5 ) / 1 000000 . 

ET7=B0NMC( 6)/ 1000000. 

IF ( PRNTXX. NE. 1)  WRITE(06,  6)  ET1 ,ET1 ,ET5 ,ET6 
FT1=QFMC/ 1000000. 

FT6=B0FMC (4)/ 1000000. 

FT7=B0FMC (5)/ 1000000. 

FT8=B0FMC (61/ 1000000 . 

FT9=0FMCD/ 1000000. 

I F( PRNTXX . NE . 1 )  WRITE(06,  7)  FT1 ,FT1 ,FT6 ,FT7 ,FT9 
I F( PRNTXX. NE. 1)  WRITE(06,  8) 

GT1=SECIC/ 1000000 . 

GT2=SECRC/ 1000000. 

GT3=SECC/ 1000000 . 

GT8=BSF.CC  (4)/1000000. 

GT9=BSECC (5)/1000000. 

GT10=BSECC(6)/1000000. 

GT11=SECDC/ 1000000. 

IF (PRNTXX . NE . 1 )  WRITE(06,  9)  GT1 ,GT2 , GT3 ,GT8 , GT9 ,GT1 1 
HT1=SECIP/ 1000000. 

HT2=SECRP/ 1000000. 

HT3=SECP/ 1000000. 

HT8=BSECP(4)/ 1000000 . 

HT9=BSECP(5)/ 1000000 . 

HT10=BSECP(6)/ 1000000. 

HT1 1=SECDP/ 1000000 . 

IF (PRNTXX. NE. 1)  WRITE(06,10)  HT1 ,HT2 , HT3 ,HT8 ,HT9 ,HT1 1 
I T 1= I IMCI / 1000000 . 

IT2=IIMCR/ 1000000. 

IT3=I I MC/ 1000000 . 

IT8=BI 1MC(4)/ 1000000 . 

IT9=BI IMC (5)/ 1000000 . 

IT10=B I IMC (6) / 1000000 . 

IT 1 1=1 IMCD/ 1000000 . 

I F ( PRNTXX . NE . 1 )  WRITE(06,11)  IT1 , IT2 , IT3 , IT8 , IT9 , IT1 1 
JT1=IMTRC/ 1000000. 

JT2=RMTRC/ 1000000. 

JT3=MTRC/ 1000000. 

JT11=DMTRC/ 1000000. 

I F ( PRNTXX . NE . 1 )  WRITE(06,12)  JT1 , JT2 , JT3 , JT11 
TEM01=0 . 

DO  210  NS=1 ,MXNS 
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IF( .NOT. (BPLAT(XS).EQ. 1))  GO  TO  220 
TEM0 1 =TEMO 1 +BTDC ( NS ) 

210  CONTINUE 
BTDCA=TEMO 1 
TEMO 2=0 . 

DO  220  NS=1 , MXNS 

I F ( . NOT . (BPLAT ( NS ) . EQ . 2 ) )  GO  TO  220 
TE  M  0  2  =TEM  0  2 + BTDC ( NS ) 

220  CONTINUE 
BTDCG=TEM02 
TEM03=0 . 

DO  230  NS=1 , MXNS 

I F ( . NOT . ( B PLAT ( NS ) . EQ . 3 ) )  GO  TO  230 
TEMO  3=TEM03+BTDC ( NS ) 

230  CONTINUE 
BTDCM=TEM03 
DTDC=STDC - BTDCT 
KT1=STDC1/ 1000000. 

K'T2=STDCR/ 1000000. 

KT3=STDC/ 1000000. 

KT8=BTDCA/ 1000000. 

KT9=BTDCG/ 1000000. 

KT 1 0=BTDCM / 1 000000 . 

KT1 1=DTDC/ 1000000. 

I F ( PRNTXX . NE . 1 )  WRITE(06,13)  KT1 ,KT2 ,KT3 ,KT8 ,KT9  , KT1 1 
I F ( PRNTXX . NE . 1 )  WRITE (06, 14) 

TEMP 1=( I SC+SECIC+SECIP+IMTRC+STDCI+I IMCI )/ 1000000 . 

TF.MP2= ( OLC+ AFC+RSC+CNMC+OFMC+SECRC+SECRP+RMTRC+STDCR+ 1 1 MCR ) / 

+  1000000. 

TEMP 3= (OLC+AFC+ISC+RSC+ONMC+OFMC+SECC+SECP+MTRC+STDC+I IMC) / 

+  1000000. 

TEMPB=(BOLC(4)+BAFC(4)+BISC(4)+BRSC(4)+BONMC(4)+BOFMC(4)+BSECC(4) 
+  BSECP ( 4 )+B I IMC (4 )+BTDCA)/ 1000000 . 

TEMP9=(B0LC( 5)+BAFC(5)+BISC(5)+BRSC(5)+BONMC(5)+BOFMC(5)+BSECC(5) 
+  BSECP ( 5 )+BI IMC ( 3 )+BTDCG)/ 1000000. 

TEM10=(BOLC(6)+BAFCC6)+BISC(6)+BRSC(6)+BONMC(6)+BOFMC(6)+BSECC(6) 
+  BSECP (o l+BI IMC (6 )+BTDCM)/ 1000000 . 

TEM1 1=( ISCD+OFMCD+SECDC+SECDP+I IMCD+DMTRC+DTDC)/ 1000000 . 

I F( PRNTXX. NE. 1)  WRITE(06,15)  TEMPI .TEMP2 .TEMP3 ,TEMP8 ,TEMP9 ,TEM1 1 
TEM04=0 . 

DO  240  NS=1 ,MXNS 

IF  (  .  NOT .  ( BTYPF.  (NS  1 .  EQ .  1 )  )  GO  TO  240 
TEM04=TEM04+TNB ( NS ) 

240  CONTINUE 
T,\TB=TEM04 
TEMO 5=0 . 

DO  250  NS=1 , MXNS 


IF ( .NOT. (BTYPE(NS) .EQ.2))  GO  TO  250 
TEM05=TEM05+TNB (NS ) 

250  CONTINUE 
TNCB=TEM05 
TEM06=0 . 

DO  260  NS=1 ,MXNS 

IF( .NOT. (BTYPE(NS) .EQ.3))  GO  TO  260 
TEM0b=TEM06+TNB (NS ) 

260  CONTINUE 
TNSB=TEM06 
TEM07=0. 

DO  270  NS=1 ,MXNS 

IF( .NOT. (BPLAT(NS) .EQ. 1))  GO  TO  270 
TEMO  7=TEM0 7+TNB (NS ) 

270  CONTINUE 
TNAB=TEM07 
TEM08=0 . 

DO  280  NS=1 ,MXNS 

IF( .NOT. (BPLAT(NS) .EQ.2))  GO  TO  280 
TEM08=TEM08+TNB (NS ) 

280  CONTINUE 
TNGB=TEM08 
TEM09=0 . 

DO  290  NS=1 ,MXNS 

IF ( .NOT. (BPLAT(NS) .EQ.3))  GO  TO  290 
TEM09=TEM09+TNB ( NS ) 

290  CONTINUE 
TNMB=TEM09 

TEMPA=TNI  B+TN'CB+TNSB 
TEMPB=TNAB+TNGB+TNMB 

IF (PRNTXX.NE . 1 )  WRITE(06, 16)  TNIB ,TNAB ,TNCB ,TNGB ,TNSB ,TEMPB ,TEMPA 

RETURN 

END 
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SUBROUTINE  OTAB4A 


810625  085716001 

■  y-  »*-  v'»  y~y*  **-  j.  Vr  Vr“V  tV  *V  V*  V?  VrVr  7*cVr  */r  *V  Vr  *V  * V  * V  I'rVr^f  Vc  ^  Vr  Vr 


c* 

c* 

c* 

c* 

c 


ATU  MOD  LCR  -  21  MAY  80 
PRINTS  ITEM-SPECIFIC  COSTS  AND 
MAINTENANCE  CHARACTERISTICS 


.  y-J-. 


COMMON  /PRNTXX/  PRNTXX 

INTEGER  PRNTXX 

COMMON  /FULLXX/  FULLXX 

INTEGER  FULLXX 

COMMON  /FAIL/  FAIL(150,10) 

COMMON  ,/FPLT/  FPLTU50) 

COMMON  / FPM  /  FPMI150) 

COMMON  /  I  •'  1 

COMMON  / 1 1 MCA/  I  I  MCA (150) 

REAL  II MCA 

COMMON  /I  NO/  I  NO (150) 

COMMON  /I  NOUN/  I  NOUN ( 1 50 , 24 ) 

REAL  I  NOUN 

COMMON  /  I  SC A/  I SCA (150) 

REAL  ISCA 

COMMON  /LRU/  LRU (150) 

COMMON  /MTRC 1 /  MTRCI(150) 

REAL  MTRC I 
COMMON  /MXI /  MX  I 
COMMON  /MXNP/  MXNP 
COMMON  /MXNS/  MXNS 
COMMON  /NITEM/  NITEM( 150 ,5) 

REAL  NITEM 

COMMON  /NP/  NT 

COMMON  /NPLT/  NPLT(5,10) 

REAL  NPLT 

COMMON  /NS/  NS 

COMMON  /OFMCA/  OFMCA(ISO) 

COMMON  /ONMCA/  0NMCA(150) 

COMMON  /PIUP/  PI UP 
COMMON  /RSCA/  RSCA(150) 

COMMON  /SF.C I  /  SECI  (150) 

COMMON  /TDC/  TDC(150) 

COMMON  /TIAC/  TIAC(150) 

COMMON  /TNB/  TNB(IO) 

1  FORMAT! 1H1/32X,68H0UTPUT  TABLE  4A:  ITEM-SPECIFIC  MAINTENANCE  AND  C 
+OSTS  CHARACTERISTICS/ /46X , 40H( COSTS  IN  THOUSANDS  OF  CONSTANT  DOLLA 
+RS)) 

2  FORMAT ( 5  5X , 1 1H (CONTI NUED)// ) 
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3  FORMAT ( 98X , 5HT0TAL , 1 7X , 5HT0TAL/ 29X , 3HLRU , 22X , 3H0N - , 6X , 4H0FF - , 2 2X , 3 
+0HITEM  ITEM  CORR.  MAINT. , IX, 7HSUPP0RT/2X.4HITEM, 23X.5HINDI 
+- , 2X , 7HINITIAL, 2X, 5HREPL . ,4X,6HEQUIP. ,3X,6HEQUIP. ,3X,6HMAINT. ,4X,5 
+HTECH. , 2X , 7HINVENT . , 2X , 7HSUPP0RT , 2X , 9HC0ST/FAI L , 4X , 6HC0ST  +/2X.5HI 
+NDEX , 2X , 9H ITEM  NAME , 1 IX , 5HCAT0R , 2X , 6HSPARES , 3X , 6HSPARES , 3X , 6HMA I NT 
+. , 3X,6HMAINT. , 3X , 8HTRAINING , 2X, 6H0RDERS , IX , 5HMGMT. ,4X,4HC0ST,5X, II 
+H (RSC A+ONMCA , 2X , 4HSEC I / 2X , 3H ( I ) , 24X , 5H (LRU ) , 2X , 6H ( I SCA ) , 3X , 6H ( RSCA 
+) ,3X,7H(ONMCA) ,2X,7H(OFMCA) ,2X,7H(MTRCI) ,3X,5H(TDC) ,2X,7H(IIMCA) , 1 
+2X , 7H+0FMCA) ,5X,6H(TIAC)/) 

4  FORMAT ( IX, 13 , 3X.20A1 ,3X, 12 , 2X,8(F8 . 1 , IX) ,3X ,F6 . 3 , 3X,F8 . 1 ) 

5  FORMAT (3X ,22(1H-) , 9X,8(8(1H-) ,1X) , 14X,8(lH-)/3X, 22HCOST  TOTALS  OVE 
+R  ITEMS ,9X,8(F8.1,1X),10X,F11.1) 


_ ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 

TEMP6=0 . 

TEMP 7=0. 

TEMP8=0 . 

TEMP9=0 . 

TEMP9A=0 . 

TEMP9B=0. 

TEMP 10=0. 

TEMPI  1=0. 

TEMP 16=0. 

IPAGE=40 

IFLAG=1 

DO  270  I XXX 1=1 ,MXI 
I=INO( I XXXI ) 

I F ( . NOT . ( I  PAGE . EQ . 40 ) )  GO  TO  220 
WRITE (  7,  1) 

IPAGE=1 

IF( .NOT. (IFLAG.NE. 1))  GO  TO  210 
WRITE (  7,  2) 

210  CONTINUE 

WRITE(  7,  3) 

220  CONTINUE 

TEMP  1=1 SCA ( I ) / 1000 . 

TEMP2=RSCA( I ) / 1000 . 

TEMP3=0NMCA ( I ) / 1 000 . 

TEMP4=0FMCA(I ) / 1000 . 

TEMP4A=MTRCI (I)/ 1000 . 

TEMP4B=TDC ( I ) / 1000 . 

TEMP5=I IMCA(I )/ 1000 . 

TIC=TEMP1+TEMP2+TEMP3+TEMP4+TEMP4A+TEMP4B+TEMP5 


Mss 
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TF.MO  1=0  . 

DO  230  NS=1.MXNS 

TF.MO  1=TEM01+TNB(  NS  l*FAIL(  I  ,NS) 

230  CONTINUE 

FPM  (  I  )  =TF.M01 

FPLT( I )  =  1 2 . * P I  UP* FPM ( I ) 

CMCF=0 . 0 

IF< .NOT. (FPLT(I).GE. 0.000001))  GO  TO  240 
CMC  F= ( RSCA ( I ) +ONMCA ( I ) +OFMCA ( I ) ) / 1 000 . / FPLT ( I ) 

240  COST  INCH 
TF.MO  3=0 . 

DO  200  NS=1,MXNS 
TF.MO 2=0 . 

DO  2’>0  NP=  1  , MXNP 

TKM  >2  ~TEM'  12+NPI.T ( NP  ,  NS ) *N I TEM  ( 1  ,  N P ) 

230  CONTINUE 

TE  MO  3 =TK MO  3+TN BINS) *TEMO 2 
2b()  CONTI  NI  P. 

STNi=TF.M03 

T 1  AC  l  1  )=TI('  +  SF.C1  I  I  )/  1000. 

WRITE  l  7.  1,(1  NOUN  (1,K1),K1  =  1,20),  LRU  ( 1 )  .TF.MP  1  ,TEMP2  ,  TEMP3  , 

+  TEMP-*  .TEMP4A  .TK.MP4B  . TEMPS  .TIC  ,CMCF,TIAC(  I ) 

TF.MPn=TEMPt>+TE.MP  1 
TEMP 7=TKMI’7+TEMP2 
TE  M  PH=TE MP8+TEM P 3 
TF.MP‘*=TEMP‘*+TEMP4 
TE M  P  0  A=TE  M  P  9  A +TK M  P4 A 
TF.MP'I  B=TEMP‘>  B+TKMI'4  B 
TEMP  1  ■  >=TEMP1 0+TKMP5 
TEMPI  1 =TEMP 1 1+T1C 
TF.MP  1  n=TF.MP  1  t>+T  1  AC ( I  ) 

I  PA(5F.=  1  PAGF.+ 1 
I FLAG=0 
270  CONTINUE 

WRITE!  7.  3)  TF.MPn,  TEMPT,  TEMP8  .TF.MP9  .TEMP9A  .TEMP9B  ,  TEMPI  0,  TEMPI  1  . 
+  TF.MP  In 
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RETURN 

END 
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SUBROUTINE  0TAB4B 


■-.Wr: 


******* 


c- 

c- 

C" 

c- 

c 


ATU  MOD  LCR  -  21  MAY  80 
PRINTS  ITEM-SPECIFIC  COSTS  AND 
MAINTENANCE  CHARACTERISTICS 


*VrVwV  V* . 


810625  OSS 722583 

J.  ^  J.  .y 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  /BS/  BS( 150) 

COMMON  /DS/  DSC  150) 

COMMON  /FAIL/  FAIL(150,10) 

COMMON  /FPLT/  FPLT(150) 

COMMON  /FPM/  FPMC150) 

COMMON  /I/  I 
COMMON  /INO/  INOC150) 

COMMON  /LUP/  LUPC150) 

REAL  LUP 

COMMON  /MXI /  MX I 
COMMON  /MXNP/  MXN’P 
COMMON  /MXNS/  MXNS 
COMMON  /NITEM/  NITEM(150,5) 

REAL  NITEM 

COMMON  /NP/  NP 

COMMON  /NPLT/  NPLT(5,10) 

REAL  NPLT 
COMMON  /NS/  NS 
COMMON  /PIUP/  PI UP 
COMMON  /TNB/  TNB(IO) 

COMMON  /TOTPQ/  TOTPQC 150) 

1  FORMAT (1H1/37X, 7 1HOUTPUT  TABLE  4B:  SYSTEM-WIDE  ITEM  COSTS  AND  MAIN 
+TENANCE  CHARACTERISTICS/) 

2  FORMAT! 5 8X, 11HCCONTINUED)//) 

3  FORMATC I  IX , 6HSYSTEM , 5X , 9HTOTAL  NO. ,3X,9HTOTAL  NO. , 11X.6HNO.  OF,5X, 
+11HNO.  OF  LIFE , I 7X , lOHPRODUCTION/ 1 IX , 6HNO .  OF,5X,10HOF  INITIAL, 2X, 
+10HOF  INITIAL, 2X , 6HSYSTEM , 2X, 4HITEM , 7X , 1 1HCYCLE  FAILS , 5X , 7HLEARNED 
+ , 5X , 8HCONTRACT/2X , 4HITEM , 5X , 9H INSTALLED , 2X , 4HBASE , 8X , 5HDEPOT , 7X , 6H 
+NO .  OF.2X.9HFAILS  PER.2X, 10H(NO  RIP  OR , 6X , 4HUN I T , 8X , 1 1 HPROCUREMENT 
+/2X , 5HINDEX , 4X , 5HITEMS , 6X , 6HSPARES , 6X , 6HSPARES , 6X , 5HITEMS , 3X , 6HMON 
+TH  , 5X , 12HFALSE  PULLS ) , 4X , 4HC0ST , 8X , 8HQUANTITY / / ) 

4  FORMAT f3X,I3,5X,F7.0,4X,F5.0,7X,F5.0,6X,F7.0,2X,F7.2,5X,F7.0,8X,F6 
+.0,9X,F7 .0) 

C 

C 
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C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 
C 

I PAGE=40 
IFLAG=1 

DO  260  1 XXX 1=1 , MX 1 
I =1 NO (I  XXXI) 

IF ( .NOT. ( I  PAGE. EQ. 40) )  GO  TO  220 
WRITE!  7,  1) 

I  PAGE- 1 

I F( .NOT. (IFLAG.SE. 1))  GO  TO  210 
WRITE!  7,  2) 

210  CONTINUE 

WRITE!  7,  3) 

220  CONTINUE 
TEMO 1=0 . 

DO  230  NS=1,MXNS 

TEMO 1 =TEMO 1 +TNB ( NS )*FA I L 1 1 , MS ) 

230  CONTINUE 

FPM( I  )=TEM0 1 

FPLT ( I )=12 ,*PIUP*FPM( I ) 

TEMO 3=0. 

DO  250  NS= 1 , MXNS 
TEM02=0. 

DO  240  NP=1, MXNP 

TEM02=TEM02+NPLT(NP , NS ) *N I TEM (I ,NP) 

240  CONTINUE 

TEMO 3=TE.M03+TNB  < NS  )  ■'■-TEMO 2 
250  CONTINUE 

STN I -FEM03 

SNOI =STN I +BS ( I  )+DS ( I ) 

WRITE!  7,  4)  I , STN I , BS ( 1 ) ,DS( 1 ) ,SN01 ,FPM( I ) ,  FPLT ( I ) , LUP( I ) , 
+  TOTPQ(I) 

I  PAGE=I  PAGF.+  l 
I  FLAG=(. 

260  CONTINUE 
C 

RETURN 

END 


SUBROUTINE  0TAB4C 


C 

C** 

C* 

C* 

c  ••-••• 

C 


c 


810625  085724799 

PRINTS  ITEM-SPECIFIC  COSTS  AND 
MAINTENANCE  CHARACTERISTICS 


COMMON  /PRN’TXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  /FPLT/  FPLT(150) 

COMMON  /FPM/  FPM( 150) 

COMMON  /I/  I 
COMMON  / I NO/  I NO ( 150) 

COMMON  / LRU/  LRU (150) 

COMMON  / MX I /  MX  I 
COMMON  /OFMCA/  GFMCA(150) 

COMMON  /ONMCA/  ONMCA(150) 

COMMON  /RSCA/  RSCA(150) 

1  FORMAT( 1H1/32X, 56HOUTPUT  TABLE  4C :  SYSTEM-WIDE  MAINTENANCE  CHARACT 
♦ERISTICS/// ) 

2  FORMAT ( 23X , 35HAVERAGE  CORRECTIVE  MAINTENANCE  COST, 10X.30HT0TAL  NUM 
+BERS  OF  LRU  FAI LURES : /26X , 20HPER  FAILURE  ($K)  FOR//28X , 4HLRUS , 8X , 4 
♦HSRUS , 27X , 7HMONTHLY , 3X , 8HLIFETIME//26X ,F6 .3,6X,F6.3,27X,F7.0,2X,F9 

+  .0) 


c 

c 

C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 
C 

WRITE!  7,  1) 

TEMO 1=0 . 

DO  210  IXXX1=1 ,MXI 
I  =  I NO ( I XXXI  ) 

IFf.NOT. (LRU(I) .EQ. 1))  GO  TO  210 
TEM01=TEM01+FPM( I ) 

210  CONTINUE 

TEMP 14=TEM0 1 
TE.M02=0 . 

DO  220  I XXX 1  =  1 ,MXI 
I = I NO ( I XXX 1 ) 

IF( .NOT. (LRU(I) .EQ. 1) )  GO  TO  220 
TEM02=TEM02+FPLT( I ) 

220  CONTINUE 

TEMPI 5=TEM02 
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TEM03=0 . 

DO  230  1XXX1=1 , MX I 
I  =  I NO ( I XXX 1 ) 

IF(  A'OT.(LRUm.F.Q.l))  GO  TO  230 
TEM03=TEM03+RSCA( 1 )+ONMCA( I )+OFMCA(I ) 
230  CONTINUE 

TEMP 1  2=TF.M03 
TEM04=0  . 

DO  240  I XXX 1=1 ,MXI 
1  =  1  NO ( I XXXI) 

1 F  (  .  NOT  .  ( l.RU  (  1  )  .  EQ  .  1)  )  GO  TO  240 
TE MO  4  =TE M 0  4+ F P  LT  (.  I  ) 

240  CONTINUE 

TEMP  1  2=TEMP  1  2 /  •:  1000  .  ••TEM04  ) 

TEMP  1 3=0 
TEMO 3=0 . 

1)0  2  30  I XXX  1  =  1  ,  MX  t 
!  =  I  NO  t  1XXX1  ) 

I  F  l  .  NOT  .  ( l.RU  t  I  )  .  EO  .  0  )  )  GO  TO  250 
TEMO  5=TEM0  5+FPl.T  (  1  ) 

250  CONTINUE 

TEMPI 1=TENG5 

1  Ft .NOT. (TEMPI  1 .GE. 0.000001) )  GO  TO  270 
TEM0b=0. 

DO  260  I XXX 1  =  1, MX  I 
I  =  1  NO ( 1XXX1  ) 

IFt  .NOT.  ( I.KLTf  I  )  .EQ.On  GO  TO  260 
TEM0b=TEMO6+RSCA ( I  )+ONMCAl I  )+OFMCA( I ) 
260  CONTINUE 

TEMPI 3=TEM06/  (  lODO-'-TEMPl  1  ) 

270  CONTINUE 

WRITE!  7,  2'  TEMP  12, TEMP  13, TEMP  14. TEMP  15 


RETURN 

END 
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SUBROUTINE  OTAB5 


810625  085726644 

■  .y  j.>*.  .y  *y  .y  .u.'. 


*  ATI'  MOD  LCR  -  21  MAY  80 

*  PRINTS  SUPPORT  EQUIPMENT  REQUIREMENTS  AND  COSTS 


„V.  v'—«-  »*-  J. 


****■**■ 


.  .c  a  .y  .(.  -y  ^y.y.'. -y  .l  -y 


COMMON  /PRNTXX/  PRNTXX 

INTEGER  PRNTXX 

COMMON  /FULLXX/  FULLXX 

INTEGER  FULLXX 

COMMON  /BPLAT/  BFLAT(IO) 

INTEGER  BPLAT 

COMMON  /BTYPE/  BTYPE(IO) 

INTEGER  BTYPE 
COMMON  1 CSE/  CSE ( 120 ) 

COMMON  / L/  L 
COMMON  /MSE/  MSEC  120) 

REAL  MSE 

COMMON  /MXL/  MXL 
COMMON  /MXNS/  MXNS 
COMMON  /NS/  NS 
COMMON  /NSEB/  NSEBC 120 , 10) 

REAL  NSEB 

COMMON  /NSED/  NSEDC120) 

REAL  NSED 

COMMON  /PIL'P/  PI  UP 
COMMON  /SEDV7  SEDVC120) 

COMMON  /SEINO/  SEINOC120) 

INTEGER  SEINO 

COMMON  /SENOl'N,  SENOUNC  120,20) 

COMMON  /SETDC/  SETDCC 120) 

COMMON  /TNB/  TNBC10) 

COMMON  /TUCTDC/  TUCTDC 

1  FORMAT! 1H1 , 27X , 56HOUTPUT  TABLE  5:  SUPPORT  EQUIPMENT  REQUIREMENTS  A 
+ND  COSTS/43X, 18HCCOSTS  IN  DOLLARS )///30X , 93H*  SUPPORT  EQUIPMENT  UN 
+ ITS  REQUIRED  AT:  *  SYSTEM  *  UNIT  *  TECH.  *  SE  *  SYSTEM 

+  */30X,lH*,36(lH-),54H*  TOTAL  *  LIFE-  *  ORDER  *  DEVMT  *  LIF 

+E-  */ 3X , 2HSE , 25X , 93H*  INDEP  CIMF  *  AIR  GROUND  *  THE 

+  *  REQUIRED  *  TIME  *  COST  *  COST  *  TIME  */2X,5HINDE 

+X , 2X , 20HSUPPORT  EQUIP.  NAME  , 1X,93H*  BASES  BASES  *  BASES  BASES  * 
+DF.POT  •••  UNITS  *  COST  *  *  *  COST  ($K)  */3X, 

+3HCL) .24X.93H*  *  *  *  (1) 

+  (2)  *  13)  *  (4)  *  (l)*(2)+(3)+(4)*///) 

2  FORMAT ( 2X , I  3 , 3X , 20A 1 ,2X,F6.0, 1X.F6 .0, 1X.F6.0, IX , F6 . 0 , 2X , F6 . 1 , 5X , F7 
+.0.2X.F8.0, 1X.F8.0, IX, F8 . 0 ,4X,F10 . 0) 

3  FORMAT (///95X, 1 1HSUBT0TAL  =  ,4X,F10.0) 


4  FORMAT,  •  32IIUCT  SO  FIT*' ARE  DEVELOPMENT  COST  =  .4X.F10.0) 

5  FORMAT!  I  A‘)\,  Ki  IF-)') 

t>  FORMAT!  7  5X,  UHTOTAl.  SUPPORT  EQUIPMENT  COST  =  .  IX,  FI  3.0  I 
C 

c 

c 

C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I  F  i  PK.NTXX  .  F.Q  .<>.  OK  .  FULI.XX  .  EQ .  0  )  RETURN 
C 

T10-0 . 

WRITE!  7.  1) 

DO  2ep  I  XXX  1-1  ,MXL 
L=SK I N, u I XXXI  ) 

TKMu  1=0  . 

1)0  2  1 1  SS-1  ,MXNS 

IF;  .  NOT .  i  HTYIT.  i  NS  >  .  EQ  .1)1  GO  TO  2 1 0 
TEMP  "TEMP1 1  +TNB  (  NS  U-ONSEB  (L,NS ) 

210  CONTINUE 
T!=TKMMt 
TEMU2=0 

IX)  22!  NS=  1  , MXNS 

in. NOT . ( BTYFF. ! NS  )  . EQ .2)1  GO  TO  220 
TEN  22- :TEM02+TNB (NS) VNSEB ( L , NS ) 

220  CONTINUE 
T2=TKMP2 
TEMP  3=0. 

DO  230  NS=j , MXNS 

1F( .NOT. i BPLAT(NS) .EQ. I))  GOTO  230 
TF. MU  :•  =TE MO 3  f TN B  ( NS  ) *NSEB  (  L ,  NS  ) 

230  CONTINUE 
T3=TKMo3 
TEMt)4=0  . 

DO  NS=  1  . MXNS 

IFt  .NOT.  iPPl.ATtNSl  .EQ.2))  GO  TO  240 
TEM04=TEM04+TNB  ( NS  V'-NSEB  1 1., NS ) 

240  CONTINUE 
T4=TKM04 
TKM0r)=0. 

DO  250  NS= 1 . MXNS 

IF,. NOT . ( B PLAT! NS  ) . EQ . 3 )  )  GO  TO  250 
TEND  5=TEM0  5+TNB  ( NS  l-NSF.B  (  L ,  NS  ) 

250  CONTINUE 
T5=TF.Mo5 
Tn-NSEDi L) 

T7=Tl+T2+To 

TS=CSEt  L)‘v!  1  .  +!’  1  UP'-'MSE  ( I.) ) 

TSA=SKTDC t  L ) 
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T8B=SEDV(L) 

T9=  (T7--T8+T8A+T8B  )  /  1000  . 

T10=T10+T9 
T1 1=T10+TL'CTDC/  1000  . 

WRITE!  7,  2)  L, (SENOUN(L.Kl) ,K1=1 ,20) ,T1 ,T2 ,T3 ,T4 ,T6 ,T7 ,T8 ,T8A, 
+  T8B.T9 
260  CONTINUE 

WRITE (  7,  3)  T10 
T12=TUCTDC/ 1000 . 

WRITE!  7,  41  T12 
WRITE  1  7,  5) 

WRITE!  7,  6)  Til 

RETURN 

END 
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a  ri 

!’k !  V!  ' 


Ipc 


MV:  .ill 

"i  km:na:.  fa  ha  ke  rate 


810625  085729454 


■  i'<:>  \  '■  'F  vrxx .. 

,  \  ^  .',EK  ;’  ’h  N  .  X’ . 

:■  MM  ’X 

P.  1MV  .V  \  ,  ■  V 


A.  XFA  ' 

S  I.!  .  ■■■■ 

’ V.  )\  ' 

'X  - ■  i ;  MThMi ;  ’.-•■•;,4» 

KEAE  i 

O.'NMON  AM  MX  I 

T'MM.’N  MX\r  v>;s  " 

\  mxns  mxns 

common  x :  "'em,  iv.,  ? 

K  E  A  i  A  ’  ■ 

■  x  •  vp 

COMM  sri.T:  5,101 

REAL  NT... 

OXMY'X  N-,  VS 

r.  'X i\  VERMi'  VTKM-’i  5  1 

RE.  A!  Y"RMP 

A  'MM'jN  :  N  l  V  !'Ni. '•!  N  (  5  .  1 2  ) 

;X'MM  'MX"..'  7EKMC 1  5  1 
;;  "1MON  Ti'A,'  TEA::.  5) 

)\  '<a  -j  •  i  i  0  i 

C  iMMON  XFK  XFk 

1  FORMAT  il!;  liiiETEC'E  TABLE  o:  PLATFORM/TERMINAL  FAILURE  RATE  1) 

+ATA  24X.55HSYSTEM  PME  FAILS*/  FAILS*/  FAILS*/ 

+FAII.S*.  ■  88 H  PI, AT-  NO.  OF  TERM.  MONTH  M 

+ONTII  M  i  i. .  HRS  MIL. HRS  PROD.  COST/86H  FORM 

+PLAT-  PER  PER  ^F.R  PER  PER  PER  PLAT  /8 

+  'il  INDEX  PLATFORM  NAME  FORMS  PLAT  PLAT  TERM.  PLAT 
+  TERMINAL  TYPE  '.SKI  /38H  (NP)  ( NTRMP ) 

+  /  i 

2  FORMAT  f  3\  .  I  2  .  -A  .  1 .1 A  1  ,  3X  ,  F6 . 0 , 2X ,  F5 . 2 , 3X ,  F6 . 3 , 2X ,  F6 . 3 , 2X  ,  F7 . 0 , 2X  .  F7 
+  .  • . EX . F8 . 0  I 


•> 


3  F0RMAT(////4X,65H*  THESE  FAILURES  INCLUDE  EVERY  EVENT  REQUIRING  MA 
+INTENANCE  ACTI0N/6X , 65H( INCLUDING  REPAIR-IN-PLACE).  THEY  DO  NOT  I 
+NCLUDE  FALSE  PULLS.  ) 

C 

C 

C 

C . ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 

I F ( PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 
C 

WRITE (  7,  1) 

DO  250  NP=1 , MXNP 
TEMO 1=0 . 

DO  210  NS=I , MXNS 

TEMO  1=TEM0 1 +TNB  ( NS  )  NP LT ( NP  ,  NS ) 

210  CONTINUE 

TPLT=TEMO 1 
PFPM=0 . 

TEM02=0. 

DO  220  IXXX2=1 ,MXI 
I = I NO ( IXXX2) 

IF(. NOT. (LRU(I).EQ.l. AND. NITEM(I,NP).GT. .000001))  GO  TO  220 
TEM02=TEM02+NITEM(  I  ,.NP)/MTBMI  ( 1  LE(NP)) 

220  CONTINUE 
TEM03=0 . 

DO  230  NS=1 ,MXNS 

TEM03=TEM03+NPLT(NP ,NS ) *TNB (NS ) * APFH(NP , LO(NS ) ) 

230  CONTINUE 

P  F  PM=TEMO  2*TEM0  3*TF AC (NP)*KFAC ( LE (NP ) )*XFR/TPLT 
TFPM=PFPM/NTRMP(NP) 

PFPMH=0 . 

TEM04=0. 

DO  240  IXXX2=1 ,MXI 
I = I NO ( I XXX2 ) 

IF(. NOT. (LRU(I).EQ. 1. AND. NITEM( I ,NP) . GT. .000001))  GO  TO  240 
TEM04=TEM04+NITEM( I ,NP) /MTBMI (I , LE (NP) ) 

240  CONTINUE 

PFPMH=TEM04*TFAC (NP )*KFAC (LE (NP ) )* 1000000 . *XFR 
TFPMH=PFPMH/NTRMP (NP) 

T1=TERMC (NP) / 1 000 . 

WRITE (  7,  2)  NP, (PN0UN(NP,K1) ,K1=1 , 12) ,TFLT,NTRMP(NP) ,PFPM,TFPM, 
+  PFPMH ,TFPMH ,T1 
250  CONTINUE 

WRITE (  7,  3) 

C 

RETURN 

END 
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SUBROUTINE  OTAB7 


BASELINE  CHANGES 

PRINTS  MANPOWER  REQUIREMENTS 


810625  085732060 

J.J.  JU 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FIT. I. XX 
COMMON  ABMHYLV  ABMHYDf 10) 
COMMON  / ABMHYM .  ABMHYM ( 10 ) 
COMMON  / ABMP /  ABMP(IO) 
COMMON  'ADMIT  ADMP 
COMMON  HCMH/  BCMHC150) 
COMMON  ' BMF/  BMF 
COMMON  /BMH/  BMIU150) 
COMMON  /CONI)/  COND (150) 
COMMON  /I1MF/  DMF 
COMMON  / DMH/  DMH(150j 
COMMON  /FAIL/  FA  1 1.(1  50, 10) 
COMMON  /FPR/  FPRI150) 
COMMON  'HPD 1 /  HPD1 
INTEGER  IIPD1 
COMMON  ,'HPI)2 ,  HPD 2 
INTEGER  HPD2 
COMMON  /!/  I 
COMMnN  /I NO/  I NO ( 150) 
COMMON  /LRU/  LRU  Cl  50) 
COMMON  / MRF/  MRF 
REAr,  MRF 

COMMON  /MRO/  MRO 
REAL  MRO 
COMMON  / MX I /  MX I 
COMMON  ,/MXNS/  MXNS 
COMMON  /NHI /  NHIC150) 
COMMON  /NRTS/  NRTS(150) 
REAL  NRTS 
COMMON  /NS/  NS 
COMMON  /QTYP 1 /  QTYP1 
INTEGER  QTYP1 
COMMON  /QTYP2B/  QTYP2B 
INTEGER  QTYP2B 
COMMON  /QTYP2D/  QTYP2D 
INTEGER  QTYP 2D 
COMMON  /RIP/  RIP( 150) 
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o  n 
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COMMON'  /RTS/  RTS (150) 

COMMON  /SAMHY /  SAMHY 
COMMON  /SAMP/  SAMP 
COMMON  /SR/  SR 
COMMON  /TABMHY /  TABMHY (10) 

COMMON  /TABMP/  TABMP(IO) 

COMMON  /TIME1/  TIME1(150) 

INTEGER  T I ME  1 
COMMON  /TMPYT1/  TMPYT1 
COMMON  /TMPYT2/  TMPYT2 
COMMON  /TNB/  TNB(IO) 

COMMON  /TORB/  TORB 
COMMON  /TORD/  TORD 
COMMON  /TR/  TR 
COMMON  /T2BA/  T2BA 
COMMON  /T2DA/  T2DA 
COMMON  /XEPR/  XFPR 
REAL  NHN’RT 
REAL  N'HRT 

1  FORMAT  ( 1H1 , 22X  ,  38HOl’TPL'T  TABLE  7:  MANPOWER  REQUIREMENTS///2X, 4HBA 
+SE.5X, 12HMANH0URS  PER, 10X, 14HT0TAL  MANYEARS , 6X , 14HT0TAL  MANHOL'RS , 6 
+X , 14HT0TAL  MANYEARS/ 2X , 4KTYPE , 5X , 1 3HYEAR  PER  BASE , 7X, 1 7HPER  YEAR  P 
+ER  BASE , 3X , 18HPER  YEAR/BASE  TYPE , 2X , 18HPER  YEAR/BASE  TYPE/2X,4H(NS 
+) /9X , 20HMAINT .  MGMT .  DATA//) 

2  FORMAT (3X,I2,4X,F6.0,4X,F6.0,11X,F4.1,15X,F8.0,13X,F6.1) 

3  FORMAT ( /2X, 4HBASE/2X , 5HT0TAL ,4X , 3H-  -.8X.3H-  -,12X,3H-  -,15X,F8.0, 
+  13X.F6.  1) 

4  FORMAT ( /2X , 5HDEPOT/2X , 5HT0TAL, 4X , 3H-  -,8X,3H-  -.12X.3H-  -.15X.F8.0 
+  , 13X.F6. 1/) 

5  FORMAT (2X , 5HT0TAL,48X, F8 . 0 , 13X , F6 . 1  ///) 

b  FORMAT ( 3 IX , 23HTOTAL  MANYEARS  PER  YEAR/35X,23H  IN  TRAINING 
+  / /9X , 20HFIRST  YEAR  , 8X , F6 . 1//9X , 20HEACH  SUBSEQUENT  YEAR 

+  , 8X , F6 . 1 ) 

C 

C 


ONLY  PRINT  THIS  TABLE  IF  FULL  OFF-LINE  OUTPUT  WAS  REQUESTED 
I F ( PRNTXX . EQ . 0 . OR . FULLXX . EQ . 0 )  RETURN 
C 

TEMO 1=0 . 

DO  210  IXXX1=1 , MXI 
I = I NO ( I XXXI ) 

TEMO 1=TEM0 1+TIME1 ( I ) 

210  CONTINUE 
T1=TEM01 
ABMHY=0 . 

ABMPY=0 . 
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A1)MHY=0 . 

WK  I  (  7  ,  1) 

DO  2  70  NS=  .MXNS 
SOM  1=0. 

SUM2=0. 

SUM3=0 . 

DO  24 i  !  XXX 2=  1  .MX  I 
1  =  1  NO l  1XXX2  ) 

SHKT=0. 

NH\KT=J . 

IF(  .NOT.  i  LKU<  1  i  .T.Q.O))  GO  TO  220 
N!iRT=RTS;N;II  (1)1 
NH\KT=NRTS(NKI  (I)) 

220  COX'D  NUK 

AHMH!"'!-  =  (  FLOAT;  I.Ri't  I  )  I+NHKT  111.  +FPR(1  >*XF PR  )*BCMH(  I  )+RTS(  I  )* 
+  KM1K  1  n-'-HMl") 

Al.)Mlir=l  (  FLOAT  1  LRU  (  1  )  )+NHRT)*NRTS  (  I  )+NHNRT*(  1  .  -COND  ( I  ) ) ) *I)MH  (  1  ) 
+  *DMF 

SUM  =SUM  I  +ABMHFM*FA1  L(  I  ,  NS  1 
S  CM  2 = S  U  M  2 + A  D  M  li  F* FA  I L( 1 , NS  )*TNB ( NS ) 

T2=l .0 

I  F  f  .NOT.  (K!P(T  1  .  IT.  0.999  )  )  GO  TO  230 
T2=R  1  Pi  I  DO  .0-RIP!  I  ) ) 

230  CONTINUE 

SUM3=SUM3+  (  T2*MR(HMR F+S R+TR )*FAI L( I , NS) 

240  CONTINUE 

ABMHYM!  NS  1  =  12. --SUM  1 
ABMHYD'NS  1  =  1 2 . *SUM3 

A  BMP  (NS  )  =  1  ABMHYM  (  NS  l+ABMHYD  ( NS  ) )  /  1 728  . 

TABMHY(NS  i  =  (ABMI!YM(NS  )+ABMHYI)(.NS)  )*TNB(NS) 

TABMP 1  NS )=TABMHY ( NS  )  /  1 728  . 

A  B  M  P  Y = A  B  M  P  Y + T  A  B  M  P  t NS ) 

ABMHY=ABMHY+TAHMHY (NS) 

A!)M!iY=ADMHY+12  .  •"SUM2 

WRITE!  7,  2)  NS , ABMHYMl NS) ,  ABMHYD(NS) , ABMPlNS ) ,TABMHY(NS ) , 

+  TABMP (NS) 

250  CONTINUE 

A1)MP=ADMHY I  7 28. 

SAMHY=ABM11Y+AI)MHY 
S  AM  P= A  B  M  P  Y + A I  ).M  P 

TMPYT I = FLOAT i nTYP2t))*  A I NTCT2DA/FLOAT ( HPD2 )+ . 5 ) / 2 1 b . +FL0AT ( QTYP2B )* 
+  A !  NT ( T2 B A /  F i ,( >AT (  HPD2  )+. 5 1/216. 

1 F(  . NOT. ( HPD1 . GT. 0 . 0001  1  )  GO  TO  260 

TMPYT 1  =TMPYT1 +FLOAT( QTYP1)*A IN  DTI /FLOAT!  HPI11  )+. 51/216. 

200  CONTINUE 

TMPYT2=FL0AT(  IJTYP211 1  ••TORI)*  A I  NT  (T2  DA /FLOAT  (  HPD2  1+  .  5  1  /  2  1  o  .  + 

+  FLOAT!  QTYP2H  i  *T(  )R  B*A  I  NT  ( T2  BA  /  FLOAT  (  HPD2 )+ .  51/21t>. 


WRITE ( 

7, 

3) 

ABMHY.ABMPY 

WRITE ( 

7, 

A) 

ADMHY ,ADMP 

WRITE ( 

7, 

5) 

SAMHY , SAMP 

WRITE ( 

7, 

6) 

TMPYT1.TMPYT2 

RETURN 

END 

! 


non 


SUBROUTINE  Rl.APRT 


C 


C* 

C** 


c 


c 


PRINTS  T'.AI  to  a  film  of  later  use  in  rla 


COMMON  /  PRN'TXX/  PKN'TXX 
INTEGER  PRN'TXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  /DUM/  I)UM 
INTEGER  DUM 
COMMON  / I /  I 
COMMON  /I NO/  INC (150) 
COMMON  / MX  I /  MX I 
COMMON  /TI AC/  T I  AC  <  150.) 
INTEGER  FINISH 
INTEGER  START 

1  FORMAT (13) 

2  FORMAT (6(13, IX, FS. 1 , IX)) 

3  FORMAT ( 1HS ) 


810625  08  5 7 37  644 


WRITE (23,  II  MX  I 
DO  220  DL'M=  1  ,  MX  I  ,o 
START=DUM 
FINISH=l)UM+5 

I F ( . NOT . ( FIN  1 S H . GT . MX 1)  )  GO  TO  210 
FINISH-MXI 
2 1 0  CONT I NUE 

WRITE (23,  2  I  ( INO(I ) ,TIAC( ING( I )) , I =START, FINISH) 
220  CONTINUE 

WRITE  (23,  ')) 

RETURN- 

END 


228 


o  n 


SUBROUTINE  OSENS 


C 

c******* 


-U  ->f  -.1- -I-  v'j.  -I-  -f. ->.  -I- 


810625  085739747 


C*  PRINTS  THE  RESULTS  OF  THE  SENSITIVITY  ANALYSIS  ON  THE 
C*  OFF-LINE  PRINTrR  AND/OR  AT  THE  TERMINAL. 

C*  IF  PRNTXX=1  OR  2,  OUTPUT  GOES  TO  THE  PRINTER. 

C*  IF  PRNTXX=0  OR  2,  OUTPUT  GOES  TO  THE  TERMINAL. 


-J-  -1 — I.  .U  *»,.  - 


DIMENSION  XXTEMH  150),XXTEM2( 
COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /COND/  COND(150) 

COMMON  /CPIUP/  CPIUP 
COMMON  /FINC/  FINC 
COMMON  /FPR/  FPRC150) 

COMMON  /I/  I 

COMMON  / IDCOND/  IDCOND(150) 
COMMON  / IDFPR/  IDFPR(150) 

COMMON  / IDFR/  IDFR(150) 

COMMON  / IDNRTS/  IDNRTS(ISO) 
COMMON  / IDRM/  IDRM(150) 

COMMON  / IDRTS/  IDRTS(15C) 

COMMON  / IDSRU/  IDSRU(150) 

COMMON  /IDUP/  IDUP( 150) 

COMMON  /I NO/  I NO (150) 

COMMON  /LDCOND/  LDCOND 
COMMON  /LDERV/  LDERV 
COMMON  /LDFPR/  LDFPR 
COMMON  /LDFR/  LDFR 
COMMON  /LDNRTS/  LDNRTS 
COMMON  /LDRM/  LDRM 
COMMON  /LDRTS/  LDRTS 
COMMON  /LDSRU/  LDSRU 
COMMON  /LDUP/  LDUP 
COMMON  /LRU/  LRU (150) 

COMMON  /NRTS/  NRTS(150) 

REAL  NRTS 

COMMON  /RM/  RM( 150) 

COMMON  /RTS/  RTS (150) 

COMMON  /TDCOND/  TDCOND(150) 
COMMON  /TDFPR/  TDFPRC 150) 

COMMON  /TDFR/  TDFR( 150) 

COMMON  /TDMF /  TDMF 
COMMON  /TDNRTS/  TDNRTS(ISO) 
COMMON  /TDPIUP/  TDPIUP 
COMMON  /TDRM/  TDRMC 150) 


229 


150) 


COMMON  / TL'RTS /  TI)RTS(150) 
COMMON  /TO SRC/  TDSKL ( ISO) 
COMMON  /TDUP/  TDCPllSO) 
COMMON  /TO  XT  PH/  TUXFPR 
COMMON  /TDXFR/  TDXFR 
COMMON  /TDXMI L.  TDXM1L 
COMMON  ,'TDXRM/  TDXRM 
COMMON  ,/TOXCC/  TOXIC 
COMMON  TFR /  TFR (150) 

common  no  noi 


1  FORMAT ( 1H1/25X.3'JHLCC  SENSITIVITY  ANALYSIS  TABLE/) 

2  FORMAT ( 30H  CHANGE  IN  LCC  : SM j  .12F7.3) 

3  FORMAT!  IX, AIK  CHANGE  IN  LCC  .'SM)  OLE  TO  AN  INCREASE  OF.F5.1.25H 
+ 1 N  : 

4  FORMAT (■* hli  GLOBAL  IN  IT  COST  (  XCC  FACTOR)  -  ,  F 1  2 . 3  ) 

5  FORMAT  (4611  GLOBAL  FAILCRF.  RATE  ( XFR  FACTOR)  -  .F12.3) 

6  FORMAT (46H  0I.0HAL  FALSE  PCI.!,  RATE  (XFPR  FACTOR)  -  .F12.3) 

7  FORMAT' 4 6H  MAINTENANCE  REPAIR  TIMES  ( BMF/DMF  FACTOR)  -.F12.3) 

8  FORMAT (.46 II  REPAIR  MATERIALS  COST  (XRM  FACTOR)  -  ,F12.3) 

9  FORMAT ( 4611  MOD'!  LABOR  HOURS  (XMIL  FACTOR)  -  ,F12.3) 

10  FORMAT  (.  IX/41H  CHANCE  IN  LCC  (SM)  DUE  TO  AN  INCREASE  OF.F5.1.25H  YE 

+ARS  IN:  ; 

11  FORMAT f 46H  SYSTEM  LIFETIME  (PICP  FACTOR)  -  , F 1 2 . 3 ) 


12  FORMAT ( 1  X  /  7  I  H  ITEM  FAILURE  RATE  (ORDERED  BY  SIGNIFICANCE) 


+  ) 

13  FORMAT ( / 30H  ITEM  INDEX  , 3X , 1 2 ( 1 4 , 3X ) ) 

14  FORMAT ( 30H  CHANGE  iN  FK  (PPM)  , 12F7.0) 

15  FORMAT ( IX/ 7 Hi  ITEM  UNIT  COST  (ORDERED  BY  SIGNIFICANCE) 

+  ) 

16  FORMAT (  "OH  ITEM  INDEX  ,3X. 12 ( 14 , 3X) ) 

17  FORMAT ( 30H  CHANGE  IN  CP  ,  12F7.0) 

18  FORMAT? IX/ 7)!'  ITEM  FALSE  IT'LL  RATE  (ORDERED  BY  SIGNIFICANCE) 

+  ) 

19  FORMAT ( /30H  1 TEM  INDEX  , IX , 12 ( 14 , 3X) ) 

20  FORMAT ( 3 OH  CHANGE  IN  FPR  , 12F7.3) 

21  FORMAT! 1 X/ 7 1 H  ITEM  REPAIR  MATERIALS  COST  (ORDERED  BY  SIGNIFICANCE) 

+  ) 

22  FORMAT  ( /  3011  ITEM  INDEX  ,3X,  12(14, 3X) ) 

23  FORMAT ( 30H  CHANGE  IN  RM  (COST)  , 12F7.0) 

24  FORMAT (  IX/ 7  111  ITEM  INTERMEDIATE  REPAIR  FRACTION  (ORDERED  BY  SIGNIF 

+1CANCE)  ' 

25  FORMAT (/30H  ITEM  INDEX  , IX, 12 C 14 , 3X ) ) 

26  FORMAT ( 3 OH  CHANGE  IN  RTS  . 12F7.2) 

27  FORMAT ( IX/ 7 1 H  ’TEM  DEPOT  REPAIR  FRACTION  (ORDERED  BY  SIGNIFICANCE) 

+  ) 

28  FORMAT ( / 30H  ITEM  INDEX  . IX . 1 2 ( 1 4 , 3X ) ) 


c 

c 

c 


c 

c* 

c* 


c* 


29  FORMAT (3 OH  CHANGE  IN  NRTS  ,  12F7.2) 

30  FORMAT ( IX/ 7 1H  ITEM  CONDEMNATION  RATE  (ORDERED  BY  SIGNIFICANCE) 

+  ) 

31  FORMAT( /30H  ITEM  INDEX  ,  IX, 12 (I4.3X) ) 

32  FORMAT (30H  CHANGE  IN  COND  , 12F7.2) 

33  FORMAT ( IX/ 7 1H  LCC  SENSITIVITY  ON  WHICH  SRUS  SHOULD  BE  LRU 

+  ) 


34  FORMAT (/30H  ITEM  INDEX 

35  FORMAT ( 30H  CHANGE  IN  SRU 


,3X, 12(14, 3X) ) 
, 12F7 .0) 


I F ( PRNTXX . NE 
I F ( PRNTXX . NE 
TEMXXX=F 1 NC* 
IF ( PRNTXX. NE 
IF ( PRNTXX. NE 
IF ( PRNTXX. NE 
IF ( PRNTXX. NE 
IF ( PRNTXX. NE 
IF ( PRNTXX. NE 
IF ( PRNTXX. NE 
IF ( PRNTXX. NE 
IF ( PRNTXX. NE 
IF (PRNTXX. NE 
IF ( PRNTXX. NE 
IF (PRNTXX. NE 
IF ( PRNTXX. NE 
IF (PRNTXX. NE 
TEMXXX=CPIUP 
IF ( PRNTXX. NE 
IF( PRNTXX. NE 
IF (PRNTXX. NE 
IF ( PRNTXX. NE 


.  1  WRITE  (6 , 1 ) 
. 0 )WRITE (7,1) 
100. 

. 1)WRITE(6, 
.0)WRITE(7, 

.  1 )WRITE(6 , 

. 0)WRITE( 7 , 

. 1)WRITE(6, 

. 0)WRITE(7  , 

. 1 )WRITE (6  , 

. 0 )WRITE ( 7  , 

. 1)WRITE(6, 

. 0)WRITE ( 7 , 

. 1)WRITE(6, 

.  0 IWRITE ( 7  , 

.  1 )  W'R  I TE  (  6  , 

. 0 )WRITE ( 7  , 


.  0)WRITE(7  , 


0)WRITEC 


3) 

TEMXXX 

3) 

TEMXXX 

4) 

TDXUC 

4) 

TDXUC 

5) 

TDXFR 

5) 

TDXFR 

6) 

TDXFPR 

6) 

TDXFPR 

7) 

TDMF 

7) 

TDMF 

8) 

TDXRM 

8) 

TDXRM 

9) 

TDXMIL 

9) 

TDX.MIL 

10) 

TEMXXX 

10) 

TEMXXX 

11) 

TDPIUP 

11) 

TDPIUP 

SECTION  1:  ITEM  FAILURE  RATE  (ORDERED  BY  SIGNIFICANCE) 


I F ( LDFR  . EQ . 0 . AND . LDERV  .EQ.O)  GO  TO  305 
IXXX=MAXO ( LDERV  , LDFR  ) 

DO  301  JXXX=1,IXXX 

XXTEM 1 ( JXXX ) =F I NC  *TFR( IDFR  (JXXX)) 
XXTEM2 ( JXXX ) =TDFR  (IDFR  (JXXX)) 

301  CONTINUE 


C 

C . PRINT  OUT  DERIVATIVES  AT  TERMINAL  SIX  AT  A  TIME. 


231 


J  Ft  U)FR  . KQ . 0 . OK . PRNTXX . EQ . 1)  GO  TO  303 
WRITE (ft,  12) 

DO  302  JXXX=1  .l.DFR  ,6 
MMH 1=M INC  I  LDFK  ,  JXXX+7) 

WRlTE(ft,  IT)  {IDFK  (KXXX) ,KXXX=JXXX,MMHI ) 

WR  I TK 1 6  ,  1 4  i  (  XX'TEM  i  <  KXXX  ) ,  KXXX=JXXX ,  MMH 1  ) 

WRITE (0,2 )  I XXTKM2 (KXXX) ,KXXX=JXXX,MMHI ) 

302  CONTI  SUE 
C 

C . PRINT  OUT  DERIVATIVES  ON  OFF-LINE  PRINTER  12  AT  A  TIME. 

303  IF: PRNTXX. EQ.O)  GO  TO  303 
WRITE i 7 ,  12) 

DO  3 0-*  JXXX=1  ,  I XXX,  12 
MMH!  -M1NI.H  IXXX.JXXX+l  1  i 

WKITEC.  13)  I  IDFK  (  KXXX  !  ,  KXKX= JXXX  ,  MMH  I ) 

WR  I  TK  C,  !  4  ;  i  XXTE.M 1  I  KXXX  )  ,  KXXX”  JXXX ,  MMH  I ) 

WR  1 TE  (7,2)  (.  X  XT  EM  2  ( KXXX  )  ,  KXXX=JXXX ,  MMH  I ) 

304  CONTINUE 
307  CONTINUE 


C*  SECTION  2:  ITEM  UNIT  COST  (ORDERED  BY  SIGNIFICANCE) 

C 

IF  l  EDIT*  .  KQ.'UANI;.  LDERV  .EQ.O)  GOTO  310 
I  XXX “MAXIM  LDERV  ,1,D''P  ) 

I)n  30o  JXXX=),IXXX 

XXTEM 1 ( .IXXX )=F I NC  *IT(TDUP  (JXXX)) 

XXTKM2  i  JXXX  V-TDl.T  i  !  DI  P  (  JXXX  ) ) 

30ft  CONTINUE 
C 

C . PRINT  OUT  HER , VAT  IVES  AT  TERMINAL  SIX  AT  A  TIME. 

IFILDUP  . KQ.< -.OR. PRNTXX. EQ.l)  GOTO  308 
WRITE (ft,  17: 

I)(  307  JXXX-  1  ,  EDI  p  ,b 

MMH  I -Ml  N0(  LOUP  ,JXX»S  ) 

WRITE ( ft ,  1ft)  i  I  DI  P  ( KXXX ) , KXXX=JXXX , MMH I ) 

WR i TK ( ft .  17)  ! XXTEM 1 i KXXX ) , KXXX= JXXX , MMH  3 ) 

WRITE ( ft . 2  i  : XXTEM 2 ( KXXX ) , KXXX= JXXX. MMH 1 ) 

307  CONTINUE 
C 

C . PRINT  OUT  DERIVATIVES  ON  OFF -LINE  PRINTER  12  AT  A  TIME. 

308  I  K!  PRNTXX.  EQ.'))  Go  TO  310 

W  K  I  I  E  (  7  ,  1  >  ) 

DO  30‘)  JXXX=1  .  i.XXX.  !2 
MMIi !  =M  1  NO  l  IXXX.JXXX+l  1  ) 

WR I TK ( 7 ,  1ft)  ! 1  DUE  ( KXXX ). KXXX= JXXX . MMH I  ) 


2  32 


C3  O 


WR I TE ( 7  ,  17)  ( XXTEM 1 ( KXXX ) , KXXX=JXXX , MMH I ) 
WRITE (7 .2)  ( XXTEM2 ( KXXX) , KXXX= JXXX , MMH I ) 

309  COST  IMF. 

310  CONTINUE 


Vy . * . * . .  **  *»  * . *  »  **  **  ••  **  * *»  »  "  "  *•  **  **  »  •*  . . 

C*  SECTION  3:  ITEM  FALSE  PULL  RATE  (ORDERED  BY  SIGNIFICANCE) 


I F ( LDFPR  . EQ . 0 . AND . LDERV  . EQ . 0  )  CO  TO  315 
I XXX=MAX0 ( LDERY  , LDFPR  ) 

DO  311  JXXX=1,1XXX 

XXTEM 1( JXXX) =F INC  *FPR(IDFPR  (JXXX)) 

XXTEM2  t  JXXX)=TDFPR  ( IDFPR  (JXXX)) 

311  CONTINUE 

. . . .PRINT  OUT  DERIVATIVES  AT  TERMINAL  SIX  AT  A  TIME. 

I F ( LDFPR  . EQ . 0 . OR . PRNTXX . EQ . 1 )  GO  TO  313 
WRITEtb,  tfi) 

DO  312  JXXX=1, LDFPR  ,6 
MMH I =M1 NO (LDFPR  .JXXX+5) 

WRITE! b,  19)  (IDFPR  ( KXXX ) , KXXX= JXXX , MMH I ) 

WRITE; b,  201  ( XXTEM 1( KXXX ) ,KXXX= JXXX, MMH I) 

WR I TE ( b , 2 )  ( XXTEM 2 ( KXXX ) , KXXX= JXXX , MMH I ) 

312  CONTINUE 
C 

C . PR, NT  OUT  DERIVATIVES  ON  OFF-LINE  PRINTER  12  AT  A  TIME. 

313  J  Ft  PRNTXX.  F.Q.O)  GO  TO  315 
WRITE! 7,  18) 

DO  314  JXXX=1 . IXXX. 12 
MMH 1 =M I  NO ( IXXX.JXXX+ll) 

WRITE! 7,  19)  (IDFPR  ( KXXX ) . KXXX=JXXX , MMH I ) 

WRITE ( 7 .  20 1  ( XXTEM 1 ( KXXX ) , KXXX=JXXX , MMH I ) 

WR I TE ( 7 , 2 )  ( XXTEM2 ( KXXX ) , KXXX-JXXX , MMH I ) 

314  CONTINUE 

315  CONTINUE 


ly  "  '  . . . . . . 

C*  SECTION  4:  ITEM  REPAIR  MATERIALS  COST  (ORDERED  BY  SIGNIF1CANC 


I F ( LDRM  . EQ . 0 . AND . LDERV  . EQ . 0  )  GO  TO  320 
IXXX=MAX0  (  LDERV  .I.DRM  ) 

DO  316  JXXX=1,IXXX 

XXTEM H JXXX )=F INC  *RM ( I DRM  ( JXXX) )*UP ( I DRM  (JXXX)) 
XXTEM2 ( JXXX  )=TDRM  (I DRM  (JXXX)) 

316  CONTINUE 


233 


c 

c 


print  out  per  natives  at  terminal  six  at  a  time. 

i  V  i  I. "KM  .  i'.o .  ,  . .  K  .  •  .\NTXX  .  PQ  .  1  ’  GOTO  318 
WK  1  Til !  o  ,  1’. ! 
no  3  1"  JXXX -1  .  l.DRM  ,b 
MMHi-MiVO.  l.DRM  ,  JXXX+5  1 
WRITE.  It'.  22)  '’OEM  ;  KXXX  )  ,  KXXX= JXXX .  MMH I  ) 

VR 1 TF.  (  -  .  .'3  t  XXTEM •.  KXXX  )  .  KXXX=JXXX .  MMH  I  ) 

w k  ;  tf,  . ,  xxn: m 2 ;  kxxx  ' .  kxxx= jxxx  .  mmh  i  ) 

31?  CON  n  NI  T 

c 

C . 1'K !  NT  ICY  OCR! VAT!  VTA  N  T'K-Ll  NK  PRINTER  12  AT  A  TIME. 

318  I !' ;  PRNTXM  V. .  • 

write,  r.  ,  : 

iv  ‘i"  x  1 . 

MMH  l=M  •  VJ  .  ’  :•  XX  .  XXX  *■  1  J  i 

WK  !  TF.  <  ■  .  22  :  :  l  FIRM  .  KXXX )  ,  KXXX=JXXX  ,  MMH  1 1 
WRITE i  \  .  >  •  :  XX  "EM  I  KXXX  )  ,KXXX= JXXX,  MMH  1 ) 

WR  I  Til ,  "  ,  2  :  XX'.'KMX  KXXX  .  ,  KXX\=JXXX  , MMHI ) 

319  '•  XTiNUK 

320  r  'NT INI' F. 

C 

C*  SECTION  5:  I  ['EM  INTERMEDIATE.  REPAIR  FRACTION  (ORDERED  BY  SIGN 


IE  PORTS  .E .AND  LEERY  .  KQ .  0  >  GO  TO  325 
!\XX=MAXr  (  LDKRV  ,  .OKA'S  . 

1)0  3  2!  2\‘XX=1  ,  1  XXX 

xxtem;  jxxx i-r inc  ■  finc.nrtsi.  idrts  uxxxi)1/finc 

XX  l'EM2  1XXX.  :  -  Ei’RTS  :  i  FlK'i'S  i  I XXX II 

321  FONT INCH 

c 

C . PRINT  out  derivatives  at  TF.KMINAI.  Six  AT  A  TIME. 

I  F s  HURTS  .  IT;.: .  •'  •  V  .  PXNTXX  KQ  .  1  1  GO  TO  323 
W  X  '  I'E  o  ,  2  ; 

I)!'  122  JXXX-V  .I.DKTS  ,(■> 

MMH  '.  -  M !  N'. :  PORTS  .JXXX*  5  1 

WRITE!  t>.  2  3)  t  IDRTS  i KXXX ) ,KXXX=JXXX. MMHI ) 

WRITE;  -•  .  Er-  I  '  XXTEM  1  >  KXXX  )  ,kxxx= jxxx,  MMH  I ) 

U  K  i  TK  :  f-  .3  <  ,  XXTEM’  i  KXXX  .  KXXX=JXXX .  MMHI  ) 

322  (T'NT  i  NUT 
C 

C . i’K  I  N  !'  K !  V  A  !  YES  -A  OFF -PINT.  PRINTER  12  AT  A  TIME. 

V;  IE  PRNTXX  .  :  Go,  To  123 

wr  ; ; 1 ,  (  ' ,  .  •* 1 


MMH I =M 1  NO ( 1XXX.JXXX+11 ) 

WHITE ( 7 ,  25)  ( ID RTS  ( KXXX ) , KXXX=JXXX , MMH I ) 
WK I TE ( 7 ,  2o )  (XXTEM1 (KXXX) ,KXXX= JXXX, MMH 1) 
WK I TE ( 7 , 2 )  ( XXTEM2 ( KXXX ) , KXXX= JXXX , MMH I ) 

324  CONTINUE 

325  CONTINUE 


SECTION  b:  ITEM  DEPOT  REPAIR  FRACTION  (ORDERED  BY  SICN1FICANC 


32b 


32  7 


328 


329 

330 


I F i EDNRTS . EQ . 0 . AND . LDERY  .EQ.O)  GOTO  330 
I XXX=MAX0 I LDERY  , LUNRTS ) 

DO  32b  JXXX=1.IXXX 

XXTEM 1  (  JXXX  )=F  I NC  '■'•'AM  I N  1(  F I NC  ,  RTS  ( I DNRTS  ( JXXX ) ) )  /  F I NC 
XXTEM2 ( JXXX ) =TDNRTS ( I DNRTS I JXXX ) ) 

CONTINUE 

.PRINT  OUT  DERIVATIVES  AT  TERMINAL  SIX  AT  A  TIME. 

I F  I l, DNRTS  .  EQ  .  0  .  OR  .  PRNTXX  .  EQ  .  1 )  GOTO  328 
WRITElb,  27) 

DO  327  JXXX=1 , LDNRTS , o 
MMH 1 =M I  SO ( LDNRTS , JXXX +5 ) 

WRITElb,  28)  ( 1 DNRTS (KXXX) ,KXXX= JXXX, MMH I ) 

WRITElb,  29)  ( XXTEM 1( KXXX ),KXXX=JXXX, MMH I ) 

WRITElb, 2)  (XXTEM2 (KXXX ) , KXXX=JXXX , MMH I ) 

CONTINUE 


ON  OFF-LINE 

330 


.PRINT  OUT  DERIVATIVES 
IF! PRNTXX. EQ.O)  GO  TO 
WRITE! 7.  27) 

DO  329  JXXX=1 , 1 XXX, 12 
MMH 1=M I  NO ( IXXX,JXXX+11) 

WRITE!,  7.  28)  ( I  DNRTS  (KXXX)  ,KXXX=JXXX,MMHI  ) 
WRITE) 7,  29)  ( XXTEM 1 ( KXXX ) , KXXX= J XXX , MMH I ) 
WRITE (7, 2)  ( XXTEM 2 ( KXXX) , KXXX=JXXX , MMH I ) 
CONTINUE 
CONTINUE 


PRINTER  12  AT  A  TIME. 


SECTION 


ITEM  CONDEMNATION  RATE  (ORDERED  BY  SIGNIFICANCE) 


IFlLDCOND. EQ.O. AND. LDERY  .EQ.O)  GO  TO  335 
I  XXX=MAXO  I  LDERY  ,  I.DCOND ) 

DO  331  JXXX= 1 , ! XXX 

XXTEM 1( JXXX )=F I NC  *AM I  NT  ( F I NC , 1 . -CONDI 1DCOND ( JXXX ) ) ) /F1NC 


35 


xxti'mu .  ) xxx  •-7;:;;  \jw  :  -sm  jxxx  1  > 

331  rONTIVT. 

c 

c . PRINT  'XT  DEh  i  VAT  I  VMS  AT  TERMINAL  SIX  AT  A  TIME. 

!  in;:  .FT  ’  .  OR  .  PkN'DIX  .  EQ  .  1  GO  TO  333 

WRITE! d,  D; 

Du  33-  JXXX=’  .ERGONT  ,n 
MMH  1  =M;  NO  i  LDOJSD , JXXX+5  i 

WR 1 TE ;  o  ,  3D  (  ! DC, ONI) i KXXX  >  . KXXX=JXXX , MMH  1  ) 

WRITE  !  d  .  32.  t  ,  XXTF.M  1  •  KXXX  i  ,KXXX=  1  XXX,  MMH  I ) 

W  R 1  TE  i  r  .  2  :  XXT'r’M  2  ;  KXXX  i  .  KXXX=JXXX ,  MMH  I  ) 

3  3-  (HAT!  NEE 
C 

c . PRINT  OH'  PER!  VAT  i  VI  S  MS  (l-T-EINE  PRINTER  12  AT  A  TIME. 

333  { H  PK.X7XX .  EQ .  •)  ;  G-  TO  -.35 
WRITE! 7,  30 i 
DO  33-  JXXX-: , !XXX.  12 
MMiii=M!N0:  I  XXX  .  3XXX-*- i  1  ) 

WR  I  TE  (7.  33  1  (  !  !>Cl  'NT) ,  KXXX  ;  ,  KXXX=JXXX  .  MMH  i  i 
WR  I  TE  (  7  ,  32)  (  XXTF.M  I  (  KXXX  )  ,  KXXX=JXXX  .  MMH  i  i 
WR  I TF.  <7,2-  ;  XXTF.M 2  '  KXXX  ,  ,  KXXX-JXXX  .  MMH  I  i 

332  CONTI  NL'E 
335  FONT  i NOE 

C 

SECTION  8:  I  .CM  I  SENSITIVITY  ON  WHICH  SSl.S  SHOULD  BE  LRU 

IF:  I.DSR1  .EQ.  '.' .  AND  .  LDKRV  .  EQ  0)  GO  TO  320 
’  VXX=MAX<  i  I.iiF.RV  ,  EDSKU  i 
l1'  > 3-  ,;XXX=  I  .  i  XXX 

XMTi.M  1  i  1\XX]=E3\;  Fi.OAT(  t  !  -LRUC IDSRL'  ( JXXX  ))  ) ')  /  F1NC 
XXTF.M*.  JXXX  ••  “VflSRU  (  '  i'oK<- '  f  JXXX ) ) 

33d  cont;\,e 

c 

C . [’HINT  OUT  DERIVATIVES  AT  TERMINAL  SIX  AT  A  TIME. 

IF.  LtlSRI :  .  F.Q  .  i) .  OK  .  i'RNTXX  .  EQ  .  1  GO  TO  338 
WR I TE ! b ,  33) 

DO  337  JXXX=1 , LDSRV  .* 

MMH  I  -M I  NO :  LDSRV  ,  JXXX-D'i 

WRITE!  h,  32i  (  IDSKi:  i  KXXX .) ,  KXXX= JXXX .  MMH  I  ) 

WR  I  TF.  (A,  35:  I  XXTF.M  I  (  KXXX  )  ,  KXXX=JXXX .  MMH  I ) 

WRITE! 8.2 i  l XXTEM2 i KXXX ) . KXXX= JXXX , MMH I ) 

337  CONTINUE 
C 

c . PRINT  OUT  I'j  Rl  VAT  I  YF.S  ON  OFF-LINE  PRINTER  12  AT  A  TIME. 

338  IFi  PRNT.W  .  EO .  0  :  .'ll »  TO  >20 


2  36 


WRITE (7 ,  33) 

DO  339  JXXX=1 , I XXX , 12 
MMH I =M I NO ( I XXX , JXXX+ 1 1 ) 

WRITE ( 7 ,  34)  (IDSRU  ( KXXX ) , KXXX= JXXX , MMH I ) 
WRITE! 7,  35)  ( XXTEM 1 ( KXXX ) , KXXX= JXXX , MMH I ) 
WRITE ( 7 , 2 )  (XXTEM2 ( KXXX ) , KXXX= JXXX , MMH I ) 

339  CONTINUE 

340  CONTINUE 

RETURN 

END 
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Sl/BROrmK  I  N  !  T A I , 


810625  085743830 


INITIAL!  EES  VAR  [  A  P  i S  TO  DEFAULT  VALUES. 

COMMON  NTABXX/  VTA  13  XX 
COMMON  'NERKXX  •'  NERRXX 
COMMON  /  B  ,  I' 

INTEGER  B 

COMMON  .'hi NO  BlNOtl 01 
INTEGER  HINT) 

COMMON  BXKEE.  BXKF.FC  f  ) 

INTEGER  EX KEF 

COMMON  1 )  1  MR  K  F  IMXREFt.  1) 

I NTEGKK  l)!XkKF 

COMMON  1)0  1  NO  IB  I  NO  t  150) 

INTEGER  !:'  !N  • 

COMMON  IV,  M'  DOM 
INTEGER  DEM 
COMMON  / 1 .  ! 

COMMON  ,  ?  A .  JA 
COMMON  / 1  A I  NO ■  1A1N0|4) 

COMMON  / 1 AXRKr  '  1 AXREF l 1  ) 

COMMON  /ISO-  ISO;  150) 

COMMON  / 1 RM  ‘  I  KM 
COMMON  / 1 RMINO ;  1KMI\0(4) 

COMMON  / 1  KMT/  1  KMT 
COMMON  /  I RMTNO/  IRMTN0(.4) 

COMMON  / I RMTXR/  I RMTXR ( ! ) 

COMMON  / I RMXRF /  IRMXRF(l) 

COMMON  /IXREF/  IXk'HF/150) 

COMMON  / K  ITEMi’/  K1TEMF 
COMMON  / K 1 TNO /  K1TNU(4) 

COMMON  /K2TEMP/  K 2 TEMP 
COMMON  / ■  K2T.N0.  K2TXO<3) 

COMMON  /E,'  L 

COMMON  /  I,T/  LT 

COMMON  /LTINO/  LT1N0(3) 

COMMON  LTXREF  /  I.TXREK  ( 1 ) 

COMMON  /I.XREF  '  LXREKl  120) 

COMMON  / M /  M 
COMMON  /MIN'D/  M1N013) 

COMMON  /MX  I /  MX! 

COMMON  /MX I RM/  MX  1 RM 
COMMON  /MXIRMT/  MXIRMT 
COMMON  /MXKT/  MXKT 
COMMON  /  MXKTE  /  MXKTF. 

COMMON  /MX!,/  MX1, 
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COMMON  /MXLT/  MXLT 
COMMON  /MXM/  MXM 
COMMON  /MXNP/  MXNP 
COMMON  /MXNS/  MXNS 
COMMON  /MXREF /  MXREF(l) 
COMMON  /NIA/  NIA 
COMMON  /N'P/  NP 
COMMON  /NPINO/  NPINO(5) 
COMMON  /NPXREF/  NPXREF(l) 
COMMON  /NS/  NS 
COMMON  /NSINO/  NSINO(IO) 
COMMON  /NSXREF/  NSXREF(l) 
COMMON  /SEINO/  SEINO(120) 
INTEGER  SEINO 
COMMON  /XK1TNO/  XKlTNO(l) 
INTEGER  XK1TNO 
COMMON  /XK2TNO/  XK2TNO(l) 
INTEGER  XK2TNO 

NTABXX=0 

NERRXX=0 

DO  10  IXXX1=1,1 
IAXREF(IXXXn=IXXXl 
XK2TN0(IXXX1)=IXXX1 
NSXREF ( IXXX1 )=IXXX1 
NPXREF (IXXX1)=IXXX1 
I RMXRF ( I XXX 1 )= I XXX 1 
IRMTXR( IXXX1 )=IXXX1 
DIXREF ( IXXX1 )=IXXX1 
LTXREF ( IXXX1 )=IXXX1 
BXREF ( I XXXI )=IXXX1 
XK1TN0( IXXX1 )=IXXX1 
MXREF ( IXXX1 )=IXXX1 
10  CONTINUE 

N I  A=4 

MXKT=4 

MXL=120 

MXNP=5 

MXNS=10 

MX I  =  1 b  0 

MXLT=3 

MXKTE=3 

MXIRM=4 

MXM=3 

MXIRMT=4 


c 

DO  30  B=l, 10 

BINO(B)=B 
30  CONTINUE 
C 

DO  40  I RM= 1 , 4 

I RM I NO ( I RM ) = I RM 
40  CONTINUE 
C 

DO  50  IRMT=1 ,4 

I RMTNO ( I RMT ) = I RMT 
50  CONTINUE 
C 

DO  60  IXXX1=1 , 150 

IXREF ( I XXXI )=IXXX1 
60  CONTINUE 
C 

DO  70  I A=1 ,4 

IAINO( IA )=IA 
70  CONTINUE 
C 

DO  80  DUM=1 ,150 

DU I NO ( DUM ) =DUM 
80  CONTINUE 
C 

DO  90  1=1,150 

INO( I )=I 
90  CONTINUE 
C 

DO  100  NS=1 , 10 
NS INO(NS )=NS 
100  CONTINUE 
C 

DO  110  I XXX  1=1 , 120 
LXREF ( IXXX1 )=IXXXI 
110  CONTINUE 
C 

DO  120  NP=1 ,5 
NPINO(NP)=NP 
120  CONTINUE 
C 

DO  130  K1TEMP=1 ,4 
K1TN0IK1TEMP )=K1TEMP 
130  CONTINUE 
C 

DO  140  M=1 , 3 
MINO(M)=M 
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140  CONTINUE 


DO  150  L=1 , 120 
SEINO(L)=L 
150  CONTINUE 
C 

DO  160  LT= 1 , 3 
LTI  NO  (  LT )  =LT 
160  CONTINUE 
C 

DO  170  K2TEMP=1,3 
K2TNO(K2TEMP)=K2TEMP 
170  CONTINUE 
C 

RETURN 

END 
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SUBROUTINE  TITLE 

C  810625  085750039 

C*  SUBROUTINE  TO  PRINT  A  TITLE  PAGE  FOR  OFF-LINE  OUTPUT.  * 

Q*V-.v,v.v,VVr-.;VrVrVrVr,.V-lr-VVr.v.v.v-V...-V,.v.v.V*****-V***-;':**Vc*Vf**Vf****Vr********Vr******Vr*VrV:oVVr** 

c 

COMMON  /XTITLE/  XTITLE(30) 


1  FORMAT (lHl//////;////////////// 

+44X ,  1 H* ,  42X ,  1 H  / 

+44X.44H*  AFSATCOM  TERMINAL  UPGRADES  LCC  MODEL  */ 

+44X , 1H* , 42X , 1H'V 

+44X.10H*  RUN:  ,  30A1.4H  */ 

+44X , 1 H* , 4  2X , 1 H * / 


,  30A1 ,4H  */ 


WRITE ( 7 , 1 )  (XTITLE (L) , L=1 , 30) 

RETURN 

END 


'•Vi*- 


o  o 


SUBROUTINE  TDSORT(TD, ID,LD,N) 


C* 

C* 

C* 


Vc  ■jV  ^ V  Vc  Vr -jV  fr  ' 


********: 


810625  085751090 


***VrVr********,j-;r  **  ******  ******  ****  V 


,-f.J * _ c. t. 


THIS  SUBROUTINE  'BUBBLES  UP'  TO  THE  FIRST  -LD-  POSITIONS  IN  ARRAY  * 
-ID-  THE  INDEX  NUMBERS  CORRESPONDING  TO  THE  -LD-  HIGHEST  * 
VALUES  OF  ARRAY  -TD-. 


DIMENSION  TD(N) , ID(N) 

DO  7  L=1 , LD 
MA=N-L 
DO  6  M=1,MA 
MB=N-M 

IF  (ABS (TD(ID(MB-*-l ))).LT.ABS(TD(ID(MB))))  GO  TO  6 
IDD=ID(MB+1) 

ID(MB+1)=TD(MB) 

ID (MB )=IDD 

6  CONTINUE 

7  CONTINUE 

RETURN 

END 


SUBROUTINE  SSETXX 


-  .  >r  Vr  iV  ■jVVt  Vr  iV  /V  Vr  t1*  Vr  • 
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THIS  SUBROUTINE  INITIALIZES  SENSITIVITY  ANALYSIS  VARIABLES  TO 
DEFAULT  VALUES. 


COMMON  /FINC/  FINC 
COMMON  / LDCOND/  LDCOND 
COMMON  /LDERV/  LDERV 
COMMON  /LDFPR/  LDFPR 
COMMON  /LDFR/  LDFR 
COMMON  /LDNRTS/  LI1NRTS 
COMMON  / LDRM/  LDRM 
COMMON  / LDRTS /  LDRTS 
COMMON  /LDSRU/  LDSRU 
COMMON  /UK?/  LDUP 

FINC  =.25 
LDCOND=0 
LDERV  =12 
LDFPR  =0 
LDFR  =0 
I.DNRTS=0 
LDRM  =0 
LDRTS  =0 
LDSRU  =0 
LDUP  =0 

RETURN 

END 
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o  o 


SUBR0UT1 NE  PRMPT1 


C 

C** 

C* 

c* 

c* 

c* 

c* 


c* 

c* 

c* 

c* 

c* 


c* 

c* 


C-' 

c 


c 


8 1 Ub2  5  085  7 5  14  54 


FIRST  OF  FOLK  PROMPTING  SUBROUTINES  TO  READ  IN  USER  INPUTS  FROM 
THE  TERMINAL.  IF  THIS  IS  THE  FIRST  CALL  OF  THE  LCC : 

1-  PRINT  TITLE 

2  -  ASK  USER  WHERE  HE  WANTS  HIS  OUTPUT.  (PRNTXX=0  TERMINAL  ONLY; 

PRNTXX=  1  OFF-LINE  ONLY;  Pk.NTXX=2  BOTH  PLACES.) 

3-  ASK  USER  FOR  MIN  OR  MAX  PROMPTING  (MAX=LONG  PROMPT  COMMENTS ) 
-4-  IF  USER  REQUEST  OFF-LINE  OUTPUT,  GET  A  NAME  FOR  THE  RUN. 

IF  THIS  IS  A  SUBSEQUENT  CALL  FOR  THE  LCC: 

1-  NOTIFY  USER  THAT  VARIABLES  ARE  AS  THEY  WERE  AFTER  LAST 
NAMELISTS  WERE  SUBMITTED. 

2-  ASK  USER  IF  HE  WANTS  TO  REREAD  INPUT  FILES  (  RERI)XX=  1  )  . 

3-  ASK  MIN  OR  MAX  PROMPTING  ONLY  IF  LAST  RUN  WAS  MAX  PROMPTING. 
-4-  ASK  1  MIR  WHERE  HE  WANTS  HIS  OUTPUT  < PRNTXX=0  TERMINAL  ONLY; 

PRNTXX= 1  OFF-LINE  ONLY;  PRNTXX=2  BOTH  PLACES) 

5-  IF  USER  REQUEST  OFF-LINE  OUTPUT,  GET  A  NAME  FOR  THE  RUN. 


COMMON  /EXITXX  EXITXX 
INTEGER  EXITXX 
COMMON  FULLXX  FULL.XX 
INTEGER  FULLXX 
COMMON  /  ITERXN  ITEK.XX 
COMMON  ,/MAXPMT  MAXPMT 
COMMON  /PRNTXX  PRNTXX 
INTEGER  PRNTXX 
COMMON  /  RF.RDXX  RERDXX 
INTEGER  RERDXX 


COMMON  XT  I  TEE  XT  I  TEE  (Bill 

DATA  BK  111  .OHM  HIM  ,  CM  I  ,  1  H  I  /  . CUN/  1 HN/  , 

+CHA •  1  HA  , CHX  1 HX -  .CHY  1 HY/ ,CHP,  1  HP / .CUE/ 1  HE/ 


1  FORMAT! 1 X / >4 7 H  AESATCOM  TERMINAL  UPGRADES  LCC  MODEL  ) 

2  FORMAT!  1X/50H  AT  THIS  POINT,  VARIABLE  VALUES  ARE  AS  THEY  WERE.  A, 
+13HFTER  THE  LAST/ 

+5311  NAMELISTS  WERE  SUBMITTED.  DO  YOU  WISH  TO  RESET  NAME, 

+  I  SHI.  I  ST  GO  1  OR  G02 / 

+  54H  VARIABLES  TO  THE  VALUES  FOUND  IN  THE  INPUT  FILES  (Y  0, 

+  8HR  N  )  - ?  ) 

3  FORMAT! 1X/44H  MINIMUM  OR  MAXIMUM  PROMPTING  (MIN  OR  MAX)-?) 

U  FORMAT (3A1) 

5  FORMAT flX/ 5 OH  SUBMIT  'MIN'  OR  'MAX'  STARTING  IN  COLUMN  1.  NOTH, 
+15HINC  ELSE  WORKS.) 

6  FORMAT ( 30H  OUTPUT  AT  TERMINAL  (Y  OR  N)-?) 

7  FORMAT ( A 1) 
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8  FORMAT  l  -<91!  SUBMIT  'Y*  OR  'N'  STARTING  IN  COLUMN  1.  NOTHING, 

+  1  21!  ELSE  WORKS  .  ) 

9  FORMAT (  5 ‘>11  OFF-LINE  OUTPUT:  FULL,  PARTIAL,  OR  NONE  (F,  P,  OR  N)- 

10  FORMAT!  29H  SUBMIT  A  TITLE  FOR  THIS  RUN:) 

11  FORMAT! BOA  1 ) 

12  FORMAT! / 5 OH  SET  F.XITXX=1  IN  ANY  NAMELIST  IF  YOU  WANT  TO  EXIT.) 

13  FORMAT! 3 7 H  SUBMIT  ’ F ’ ,  'P',  OR  'N'  IN  COLUMN  1., 

+2 1 H  NOTHING  ELSE  WORKS.) 

IF i 1TERXX.NE. 1)  GO  TO  16 
WR I TE ( b , 1 ) 

Go  TO  18 
lb  CONTINUE 
W  k  I  I  E  l  b  ,  2  1 
REKDXX-2 
STK 1 =BK 

17  READ  (">,')  STR 1 

I  F  ;  STK  1  EU'.OHYi  KLKDXX-l 
IF'STKl.E',1  CUN  kKKI>XX  =  'f 
I  F(  RERDXX  .  NE  2'  O'  TO  18 
WR I TK l b , 8  ) 

GO  To  1 : 

18  CONTINUE 

IF'  ITEkXX.GT  AN];  MAX  PM  i  Ni  Li  IF'  To  20 
W  R 1 TE l b  ,  1  ) 

MAXPMT=2 

10  READ  (  7  ,  S  TK  1  ,  STK 2  ,  STR  3 

:  F ;  STK  1  .  yij .  OHM  .  AN!) .  STK  2  .  Eo  .CHI  .  AND  .  STR  3  .  EQ  .  OHS  )  MAXPMT=0 
!  F  STK  1  .  E 1 .  OHM  .  AND  .  STR 2  .  Eg  .  CHA  .  AND  .  STK 3  .  E<) .  CHX  )  MAXPMT=  1 
! F i MAXPMT . NE . 2  l  GO  TO  20 
WRIT!'.  (  b  .  7  : 

(I  T"  19 

20  CONTINUE 
MM !  =2 

W  R 1 TK ! b , b  1 

21  READ i 3,7s  STR 1 
IFlSTkl  .  KU'.OHY)  MM  1  =  1 
IF  STK 1  . EQ . GUN  )  MM  1=0 
I Fi MM  1  . NE  2  I  GO  TO  22 

WRITE i b  ,8  ) 

GO  TO  2 1 

22  MM 2=3 
STR ) =BK 
WHITE.!  b, 9  i 

2  8  READ! 7,;  i  SERI 

I|8  STK  1  Ei)  .  CHE  l  MMK  =  2 
1 1''  STK  I  .  K.O  .  CUP  )  MM 2=  1 


IF(STR1  . EQ.CHN)  MM2=0 
IF(MM2.NE.3)  GO  TO  24 
WRITE (6 ,13) 

GO  TO  23 
24  CONTINUE 

IF (MM2 . EQ . 0)  PRNTXX=0 
IF ( MM1 . EQ . 0 . AND . MM2 . GE . i)  PRNTXX=1 
I F  ( MM  1  .  F.Q .  1  .  AND .  MM2  .  GE  .  1 )  PRNTXX=2 
FULLXX=0 

I F  (.MM2  .  EQ .  2 )  FULLXX=1 
I F  ( PRN'TXX .  EQ  .  0  )  GO  TO  88 
WRITE! b, 10) 

READ! 5, 11)  (XTITLE(L) ,L=1 ,30) 

88  I F ( MAXPMT . EQ . 1 . OR . ITERXX . EQ . 1 )  WRITE(6,12) 
r 

RETURN 

END 
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SUBROUTINE  PRMFT2 


810625  085753101 

SECOND  OF  THE  PROMPTING  ROUTINES .  PROMPTS  THE  USER  FOR  NAMELIST  * 

/GDI, (WHICH  CONTAINS  ALL  A-M  VARIABLES  FROM  THE  INPUT 

FILES  AND  ALLOWS  THE  USER  TO  OVERRIDE  THOSE  VALUES  IN  REAL  TIME).  * 

COMMON  EX  I TXX /  EXITXX 
INTEGER  EXITXX 
COMMON  ITER XX/'  ITERXX 
COMMON  MAXPMIV  MAXPMT 
COMMON  KERDXX/  RERDXX 
INTEGER  KERDXX 
COMMON  LDERV  ,■  LDF.RV 
COMMON  KING  /  ITNC 
COMMON  /A,  A( 150,4,3) 

INTEGER  A 

COMMON  ACPI'  ACPI' 

COMMON  AX  IT  AK I  T(  4 , 5  ) 

COMMON  AM PM  AMPM(5,3) 

COMMON  ’  APFH  Ai’FH  ;  5 , 3  ) 

COMMON  BAA  BAA 
COMMON  BCMH  BCMH ; 150) 

COMMON  BDATA  BDATA 
INTEGER  BDATA 
COMMON  /BF  BF 
COMMON  BIRD  BIRD 
COMMON  BLR  BI.K 
COMMON  HMF  BMP 
COMMON  BMil.  BMHllNOi 
COMMON  BNOUN  BNiH'N  ;  10 , 1  r  ) 

COMMON  ■ BPLAT  BPLAT i  111) 

INTEGER  BPLAT 
COMMON  ,  BRCT  BKCT 
COMMON  /BSP  BSP ( 10) 

INTEGER  BSP 

COMMON  /BTYPE .  BTYPE(IO) 

INTEGER  BTYPE 
COMMON  ./CFG  CFG(3) 

COMMON  /CONI).  CONI) (150) 

COMMON  ./CPI)  1  /  CPI)  1 
COMMON  /CI>I)2  CPI) 2 
COMMON  /CPPC  CPPC 
COMMON  f I P PI 5  CPPI)  (  3  ) 

COMMON  CKCT/  CRCT 
COMMON  USE  CSE ( 1 20  ) 
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COMMON  /DAA/  DAA 
COMMON  /DAD/  DAD 
COMMON  /DATAB/  DA TAB (150) 
INTEGER  DATAB 
COMMON  /DATAD/  DATA!) (.ISO) 
INTEGER  DATAD 
COMMON  /DATAS/  DATAS(120) 
INTEGER  DATAS 
COMMON  ,'DDATA/  DI)ATA 
INTEGER  DL1ATA 
COMMON  ,/DLR,  DDK 
COMMON  /I IMF/  DMF 
COMMON  ,/DMH/  DMHU50) 

COMMON  DRAG  DRAG (5 ) 

COMMON  /DRCT /  DRCT(3) 

COMMON  /KGH/  FGH  (  5  ) 

COMMON  /FPR/  FPR( 150) 

COMMON  / FR/  FR ( 3 , 5 ) 

COMMON  /FSEDC/  FSEDC 
COMMON  /GFE/  GFK(150) 

INTEGER  GFE 
COMMON  ,'HPD1  /  HF’Dl 
INTEGER  HPD1 
COMMON  /HPD2/  HPI)2 
INTEGER  HPD2 
COMMON  / I /  I 
COMMON  / i MC/  IMC 
REAL  IMC 

COMMON  i  I  NOl'N  /  I  NOON  (  130,24) 
REAL  1  NOl’N 

COMMON  1NTKG  INTEG(ISO) 
REAL  INTEG 

COMMON  1NTNK  I NTNR ( 5 ) 

REAL  ! NTNR 

COMMON  ■ I NTR  I NTR ( 3 ) 

REAL  I NTR 

COMMON  ! PCF  '  1 PCF (150) 

REAL  I PCF 

COMMON  IRM1N  1RMIN(150,4) 
COMMON  / K /  K ( S ) 

REAL  K 

CfiMMON  KFAC  KTAC(A) 

RF.AI,  KFAC 
COMMON  /L/  L 
COMMON  / LE/  LE ( S ) 

COMMON  ,  LFAC,  LEACH  50) 

REAL  LFAC 
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COMMON  1,0.  1,0(10) 

COMMON  LRU"  LRU! 150) 

COMMON  M1F1X/  MIF!X(3,5) 
REAL  MIKJX 

COMMON  MILK/  MILK! 3) 

REAL  M 1  I,H 

COMMON  Mi  Mil  Ml  MIKA,  3, 5) 
REAL  MIMH 

COMMON  MM!*])/  MMPI) (5,3) 

REAL  MMI’D 

COMMON  MM  PM  MM  PM  l  5  ) 

REAL  MM  I’M 
COMMON  MRF  MRF 
REAi,  MKF 

COMMON  MR  '  MKC1 
REAL  MRC1 

COMMON  / MSB  '  MSF.M20) 

REAL  MSF. 

COMMON  ■ MTBM i MTBM I (  15 0 , 4  ) 
REAL  MTBM1 
COMMON  MUSE  MUSE 
REAL  MUSE 


NAMEI.  I  ST  /GO  1  EX  I TXX  ,  A  ,  ACPI* .  AK  I T ,  AM  PM  ,  APFH  ,  BAA  ,  BCMH  .  BDATA  ,  BF  , 

+  B  I  HI) ,  BLR  .  BMF  .  BM11 .  BNOUN  ,  BI’LAT  ,  BRCT ,  BSP  ,  BTYPE  .  CFG  ,  CON'D  ,  CPD 1  , 

+  CP1)2  ,  CPPC  ,  CP!’!) .  CRCT  .  CSF, ,  DAA  ,  DAD  ,  DATAB  ,  DATAD  .  DATAS  ,  DDATA  ,  DLR  , 

+  DMF  ,  DMH  .  I.) RAC: .  DRCT ,  FGH  ,  FPK  ,  FR  ,  FSF.DC  ,  GFE  ,  HPD 1  ,  HPD2 , 1  ,  IMC  , 

+  1  NOUN  ,  I  N'TEC; ,  1  NTNR  ,  I  NTR  .  I  PCF  ,  I RM I N  .  K  ,  KFAC  ,  L .  LE  ,  LFAC  ,  LO  ,  LRU  , 

+  M  I  F 1 X ,  M I  I,R  ,  M  1  Mil .  MM  PD  ,  MM  PM  ,  MRF  ,  MRO  ,  MSE  ,  MTBM  I  ,  MUSE 

1  FORMAT! IX) 

2  FORMAT! 52H  NAMELIST  /G01/  CONTAINS  ALL  VARIABLES  FOUND  IN  THE, 

+  I3H  INPUT  FILES  / 

+-*QH  THAT  BEGIN  WITH  THE  LETTERS  A  TO  M.  ) 

3  FORMAT ( 3 3H  AT  THIS  POINT,  NAMELIST  /G01/  VARIABLES  CONTAIN  VAL, 
+13HUES  AS  IN  THE 

+  14H  INPUT  FILES. ) 

4  FORMAT! 53H  AT  THIS  POINT,  NAMELIST  /G01/  VARIABLES  ARE  AS  THEY, 
+11H  WERE  AFTER/ 

+40H  THE  LAST  NAMELIST  / GO 1 /  WAS  SUBMITTED.) 

5  FORMAT ( 54H  TO  USE  THESE  VALUES,  SUBMIT  AN  EMPTY  NAMELIST  / GO 1 / . / 

+  5  OH  TO  OVER  IDF.  ANY  OF  THESE  VALUES,  SUBMIT  A  NON-EMP, 

+  I8HTY  NAMELIST  /G01/  .  ) 

o  FORMAT!  4211  SUBMIT  NAMELIST  /G01  IN  NAMELIST  FORMAT:) 

WRITE (6,  I  t 

I F( MAXPMT . NE . I )  GO  TO  30 
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WKITF.lt),  2) 

I F l I TERXX . FQ . 1 . OK . KKKDXX . EQ . 1 )  WK ITE ( 6 . 3 ) 

1 F  l  1 TFKXX  .  GT  .  1  .  AX!) .  KFKDXX  .  NE  .  1  )  WR  ITE  C  6 , 4 ) 
WRITERS) 

30  W  K  !  TE  (  b  ,  t>  ) 

READ  l  3  ,GOn 

I F ( EX  I TXX . EQ . 1  )  RETURN 

RETURN 

EX!' 


SUBROUTINE  PRMPT3 


C  810625  085756562 

C*  THIRD  OF  THE  PROMPTING  ROUTINES.  PROMPTS  THE  USER  FOR  NAMELISTS  * 
C*  /G02/ (WHICH  CONTAINS  ALL  N-Z  VARIABLES  FROM  THE  INPUT 
C*  FILES  AND  ALLOWS  THE  USER  TO  OVERRIDE  THOSE  VALUES  IN  REAL  TIME) 

C*  AND  /SENS/  (WHICH  CONTAINS  SENSITIVITY  ANALYSIS  PRINT  PARAMETERS).  * 

C 

COMMON  /EXITXX ;  EXITXX 
INTEGER  EXITXX 
COMMON  '  ITERXX/  ITF.RXX 
COMMON  /MAXPMT/  MAXPMT 
COMMON  /RERDXX  RHRDXX 
INTEGER  RERDXX 
COMMON  / LDKRY  LDERV 
COMMON  ,/FINC  /  FI  NC 
COMMON  /LL1COND/  LDCOND 
COMMON  /LDFPR/  LDFPR 
COMMON  / LDFR/  LDFR 
COMMON  / LDNRTS/  LDNRTS 
COMMON  /  LDRM  /  I.DRM 
COMMON  /HURTS/  LDRTS 
COMMON  ,/LDSRU/  LDSRU 
COMMON  ' LDUP/  LOUP 
COMMON  /NAE/  NAE ( 5 ) 

REAL  NAE 

COMMON  /NBC/  NBC( 10) 

REAL  NBC 

COMMON  f NHB/  NHB(IO) 

COMMON  /NHI /  NHI (150) 

COMMON  ,/N ITEM/  NITEMl 150,5) 

REAL  NITEM 

COMMON  /NJA/  N.JA (  150,4) 

COMMON  /NPLT/  NPLTI5.10) 

REAL  NPLT 

COMMON  ,/NRM/  SRM  (  150  ) 

COMMON  /NRM I  /  NRM1  (  5  .) 

REAL  NRM I 

COMMON  /NRTS  NRTS(ISO) 

REAL  NRTS 

COMMON  /NRUC/  NRUC 
REAL  NRUC 

COMMON  /NTRMP,'  NTRMPlS) 

REAL  NTRMP 
COMMON  /OST/  OST ( 3 ) 

COMMON  /OSTC/  OSTC 
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■A 

.  1  ■ 


COMM  N  i’A  PA (150) 
COMMON  PALI  I’A  1. 1 
COMMON  ,  PAI.2B-  PAI.2B 
COMMON  1  *  A  x .  I )  /  PA1.2I) 


COMMON  I'D  IV/  PI) !  Y  I  5 ) 
COMMON  ,  PUT,  PUT 


COMMON  PMLR  /  PMLR 

COMMON  PNOl'N /  PNOCN(5,12) 

COMMON  PTNUM/  PTNl'M  (  1  50 , 1 2  ) 

COMMON  QSA i  QSA (150.4,3) 

COMMON  / QTYP 1 /  OTYP1 

1  NTEGKR  QTYP1 

COMMON  /QTYP2B.  QTYP2B 

INTEGER  QTYP2B 

COMMON  /QTYP2D/  QTYP2D 

INTEGER  QTYP2D 

COMMON  /R/  R 

INTEGER  R 

COMMON  /RCPP/  RCPP 
COMMON  /RIP/  RIP(  150) 

COMMON  /RL/  RL( 150) 

INTEGER  RL 
COMMON  /RM/  RMC150) 

COMMON  / RMC /  RMC 
COMMON  /RMH/  RMHI150) 

COMMON  /RTS/  RTS (150) 

COMMON  /SA/  SA 

COMMON  / SEDEY/  SEDEY(120) 

COMMON  /SENOl'N/  SENOUNt  120 .20) 

COMMON  /SENL'M/  SENUM(  120, 12) 

COMMON  /SETYPE/  SETYPE(120) 

INTEGER  SETYPE 

COMMON  /SPC1/  SPC1 


INTEGER  SPC1 
COMMON  /SPC2/  SPC2 
INTEGER  SPC2 
COMMON  /SR/  SR 
COMMON  /TF.FM/  TEEM 
COMMON  /TEAC /  TEAC(5) 
COMMON  /THRS./  THRS(3) 
COMMON  /T I  ME  1 /  TIME  1(150  ) 
INTEGER  TIME  1 
COMMON  /TNB/  TNB(IO) 
COMMON  / TN  LR /  TNLR 
COMMON  /TORB/  TORB 
COMMON  /TORI)/  TORI) 


COMMON  / TR/  TR 
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COMMON  ,/TRAVB/  TRAVB 
COMMON  /TRAV1D/  TRAV1D 
COMMON  /TYP2TF/  TYP2TF 
COMMON  /UCPP/  UCPP 
COMMON  /CCTDEV/  UCTDEV(150) 

COMMON  /UP /  UP (150) 

COMMON  /WT/  WTU50) 

COMMON  /XFPR/  XFPR 
COMMON  /XFR/  XFR 
COMMON  / XM I L/  XMIL 
COMMON  /XUC/  XUC 
C 

NAMELIST  /SENS/  EXITXX , LDERV  ,FINC  , LDCOND , LDFPR  , LDFR  , LDNRTS , 

+  LDRM  ,  LDRTS  ,  LDSRU  ,  LDL'P 

NAMELIST  /G02/  EXITXX , NAE , NBC ,NHB , NH I , NITEM , NJA , NPLT , NRM , NRMI , 

+  NRTS , NRUC , NTRMP , OST , OSTC , PA , PAL  1 ,  PAL2B , PAL2D , PD IV ,P11T, PMLR , 

+  PNOUN , PTNUM ,QSA ,QTYP 1 . QTYP2B .QTYP2D , R , RCPP , RIP ,RL, RM . RMC , 

+  RMH  ,  RTS  ,SA,  SEDEY  ,  SF.NOUN  ,SENUM  ,  SETYPE  ,  SPC  1  ,  SPC2  ,  SR  ,TEFM  ,TFAC  , 

+  THRS .TIME  1 , TNB.TNLR, TORB.TORD.TR, TRAVB, TRAV ID, TYP2TF, UCPP, 

+  UCTDEV , UP , WT , XFPR , XFR , XM I L , XUC 

C 

1  FORMAT (IX) 

2  FORMAT ( 5 2H  NAMELIST  /G02/  CONTAINS  ALL  VARIABLES  FOUND  IN  THE, 
+13H  INPUT  FILES  / 

+40H  THAT  BEGIN  WITH  THF,  LETTERS  N  TO  Z .  ) 

3  FORMAT! 3 3H  AT  THIS  POINT,  NAMELIST  /G02/  VARIABLES  CONTAIN  VAL, 
+13HUES  AS  IN  THE/ 

+  14H  INPUT  FILES.) 

4  FORMAT! 5 3H  AT  THIS  POINT,  NAMELIST  /G02/  VARIABLES  ARE  AS  THEY, 
+11H  WERE  AFTER/ 

+40H  THE  LAST  NAMELIST  /G02/  WAS  SUBMITTED.) 

5  FORMAT! 54 H  TO  USE  THESE  VALUES,  SUBMIT  AN  EMPTY  NAMELIST  /G02/./ 
+50H  TO  OVER  IDE  ANY  OF  THESE  VALUES,  SUBMIT  A  NON-EMP, 

+18HTY  NAMELIST  /G02/ . ) 

6  F0RMAT(42H  SUBMIT  NAMELIST  /G02/  IN  NAMELIST  FORMAT:) 

7  FORMAT ! 5 3H  NAMELIST  /SENS/  CONTAINS  VARIABLES  THAT  CONTROL  THE/ 

+53H  DISPLAY  OF  THE  SENSITIVITY  ANALYSIS.  ) 

8  FORMAT! 5 3H  AT  THIS  POINT,  THE  TERMINAL  DISPLAYS  SENSITIVITY  WI , 
+18HTH  RESPECT  TO  ONLY/ 

+63H  GLOBAL  SENSITIVITY  VARIABLES. 

+ ) 

9  FORMAT! 5 2H  AT  THIS  POINT,  THE  TERMINAL  SENSITIVITY  DISPLAY  IS/ 
+32H  AS  IT  WAS  ON  THE  PREVIOUS  RUN.) 

10  FORMAT! 5 3H  FOR  THE  SAME  TERMINAL  DISPLAY,  SUBMIT  AN  EMPTY  NAME, 
+12HLIST  /SENS/./ 

+54H  FOR  A  DIFFERENT  TERMINAL  DISPLAY,  SUBMIT  A  NON-EMPTY, 

+17H  NAMELIST  /SENS/.) 
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11  FORMAT (43H  SUBMIT  NAMELIST  /SENS/  IN  NAMELIST  FORMAT:) 

WRITE (6,1) 

IF (MAXPMT . NE . 1)  GO  TO  30 
WRITE (6 , 2) 

IF ( ITERXX . EQ . 1 . OR . RERDXX . EQ . 1 )  WRITE ( 6 , 3 ) 

IF ( ITERXX . GT . 1 . AND . RERDXX . NE . 1 )  WRITE(6,4) 

WRITE (6 , 5 ) 

30  WRITE (6 ,6) 

READ ( 5 , G02 ) 

IF (EXITXX . EQ . 1 )  RETURN 
WRITE (6 , 1) 

I F (MAXPMT. NE. 1)  GO  TO  31 

LDTOT=0+LDFPR  +LDSRU  +LDFR  +LDUP  +LDCOND+LDNRTS+LDRTS  +LDRM 
WR I TE ( 6 , 7 ) 

I F ( LDTOT . EQ . 0)  WRITE(6,8) 

I F ( LDTOT . NE . 0 )  WRITE (6, 9) 

WRITE(6, 10) 

31  WRITE (6, 11) 

READ(5 .SENS) 

RETURN 

END 
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SUBROUTINE  PRMPT4 


810625  0858018 

C*  4TH  OF  PROMPTING  ROUTINES  THAT  TELLS  USER  THAT  LCC  HAS  BEEN 
C*  COMPLETED  AND  THAT  GIVES  THE  USER  A  CHANCE  TO  EXIT. 

C 

COMMON  /MAXPMT/  MAXPMT 
COMMON  /EXITXX/  EXITXX 
INTEGER  EXITXX 
C 

DATA  ECHAR/1HE/.BK/1H  / 

C 

2  FORMAT! IX/ 15H  LCC  COMPLETED.) 

3  FORMAT! 49H  IF  YOU  WISH  TO  EXIT,  HIT  -E-,  THEN  HIT  -RETURN-;, 

+12H  OTHERWISE,) 

4  FORMAT (46H  ADJUST  TERMINAL  TO  NEW  PAGE  AND  HIT  -RETURN-.) 

5  FORMAT! A 1 ) 

C 

STR=BK 
WRITE (6, 2) 

IF(MAXPMT. EQ . 1 )  WRITE(6,3) 

VRITE(6,4) 

READ (5, 5)  STR 
IF(STR.EQ.ECHAR)  F.XITXX=1 
C 

RETURN 
END 
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SUBROUTINE  PRMPT5 


C 

C*" 

c* 

c* 

c** 

c 


c 

c 


c 


c 


.  .U  . 


.  .1.  .t, 


*• 


810625  085801971 

.  -• I-  J.  J.AAiJ.  J.  •>. 


5TH  OF  PROMPTING  ROUTINES. 

GIVES  THE  USER  A  CHANCE  TO  EXIT. 


COMMON  /MAXPMT/  MAXPMT 
COMMON  /EXITXX/  EXITXX 
INTEGER  EXITXX 

DATA  ECHAR/1HE/ ,BK/1H  / 

3  F0R.MAT(49H  IF  YOU  WISH  TO  EXIT,  HIT  -E-,  THEN  HIT  -RETURN-;, 
+12H  OTHERWISE,) 

4  FORMAT (4bH  ADJUST  TERMINAL  TO  NEW  PAGE  AND  HIT  -RETURN-.) 

5  FORMAT! A 1 ) 


STR=BK 

I  FI. MAXPMT. EQ. 1 )  WRITE(6,3) 
WRITE (6, 4) 

READ! 5,  5)  STR 
I F ( STR . EQ . ECKAR  j  EX I TXX= I 

RETURN 

END 
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SUBROUTINE  PRMPT6 


C 

Q  -J-  - -  >-.  -J.  . 


810625  085802128 


C*  SIXTH 
C*  DESIRED 
c********** 
C 


AND  FINAL  PROMPTING  ROUTINE  TO  ASK  IF  ANOTHER  RUN  IS 
.  IF  SO,  REDOXX=l.  IF  NOT,  REDOXX=0. 


COMMON  /RED OXX/  REDOXX 
INTEGER  REDOXX 


C 


DATA  YES/1HY/ .CNO/1HN/ 

C 

1  FORMAT ( 1X/23H  ANOTHER  RUN  (Y  OR  N)-?) 

2  FORMAT (A1 ) 

3  FORMAT (49H  SUBMIT  ’Y’  OR  ' N '  STARTING  IN  COLUMN  1.  NOTHING, 
+12H  ELSE  WORKS.) 

C 

REDOXX=2 
WRITE (6 , 1 ) 

4  READ (5, 2)  STR 
IF(STR.EQ.YES)  REDOXX=l 
I F ( STR . EQ . CNO )  REDOXX=0 
IF (REDOXX. NE. 2)  GO  TO  5 

WRITE (6 , 3 ) 

GO  TO  4 

5  CONTINUE 
C 

RETURN 

END 
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CROSS  REFERENCE  LISTING 


The  following  tables  contain  cross  reference  listings  for  the  LCC 
Program.  Included  are  maximum  dimensions  of  indicies  and  cross 
references  listings  of  variables  by  subroutines  and  subroutines  by 
variables.  These  cross  reference  tables  were  generated  by  AL'TOLCC, 
the  program  used  to  generate  the  ATU  LCC  Model. 

Several  functions  are  labelled  differently  in  the  FORTRAN  code  and 
the  cross  reference  listing.  This  is  due  to  the  manner  in  which 
AL'TOLCC  handles  functions.  The  1  ists  below  give  the  names  found  in 
the  FORTRAN  code  and  the  cross  reference  listing  for  the  renamed 
funct ions : 


FORTRAN  Cross  Reference 

Listing  Listing 


U 

F 

XLEARN 

CHLC 


LL 

FF 

LCC 

CHLCC 
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TXBiE  1 

INDIC‘5  .-SEO  IN  fwe  LCC  MJ OIl  CQVruiEH  PROGRAM 


MB.E  2 

SEO  :s  ThF  ICC  M^GEL  COMPUTER  PROGRAM 


sa^dyiavA  aj  i 1 1 isn3s 

c  jie»x 


TABLE  4 

COST  WOD i L  CROSS-REFERENCE  TA3lE 
BROUT I NE  >  BY  VARIABLES 
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ccsT  ;i  cross-mefe rfmqe  tabi 
;broot:ne»  :w  variables 


PSQ 


MBiE  4 

LIFE  C.  f  CL  E  CCST  t.*'.  ;  l  wnD$S-R£  FERFNCE  TABLE 


TABLE  4 

LIFE  CYCLE  COST  MODEL  CROSS-RE FERFNCE  TAbLE 


o  o  < 
e>  v>  o  -j 
i/>  •—  z  a  «/> 

h  ffl  ►*  M  2  m 


-  D  O  -J  O  U 
■  tt  /  £1  2  tt  D 
i  -j  — «  co  a  2  x 


l  m  in  < 

■  a  a  u.  ?  j 


CD  CJ 
Q  J  US 
}  a  >•  a.  >  u. 


mx-Hjo' 


c  j  ^  e  a  x  a  .  c 

uifflQizSaitu^iroi 


id  in  o  <  in 

UZI/I  O  CD  O  2  (_> 

■omx— 'iflO  2  i/)  a  x  i/i  in 

)  _j  —  s  ►-  o  x  ►-  a  3  S  z  —  a 


o  o-  «t  u  Si 

ffl  a  5  z  -j  <  a  tr  £D  u. 

z^zxdau.aii-1-a 

HffiOSOZYiiK24 


tD  ID  5  u.  o  i*  i/i  a  cr  —  I 
ziuSZu*-i/>aa.i-is 
HZlDO’-'i-BZUd  *20 


<  a  o  a  -*  a  *-  in  uj  2  a  a  o  o  o  o 

IDO  CD.-  o  3  V.  2  —  3  U.  —  2  H  2  I  OD-uOU-Zle*-  «:  X 

2u.au.xi/iiA  •—  Ct  L)  O  x  <  I  ”lattxi/i-<0  OS  *— Su.oruOu.xcxu.  O  S  cr 
►-  Z  3  Z  S  CD  •—  a  CD  -1  U  Z  U-  Z  a  2)  JZ  2  Z  Z<S>h  jb  affix  -J>-O0S>-0— «ua3t/» 


06  ‘25 '91 


T*BlE  4 

LIFE  CYCLE  COST  MOD s L  CROSS-REF ERfNCE  TABLE 
SUBROUTINES  BY  VARIABLES 


A 92  MXNS  ,N$  TNB  ,  BTYpE  ,  NHB 

NBC  .BPLAT  .NS 

LO  . BSP  . BNOUN 


CROSS-REFERENCE  TABLE 


T1B1E  5 

LIFE  CYCLE  COST  MODEL  CROSS-REFERENCE  TABLE 


INI  TAX , COS79  0TAB3B  -OST9  .OTAB3C 


TJB'.E  5 

LIFE  CYCLE  COST  WCOll  CROSS-REFERENCE  TABLE 
VARIABLES  3Y  SUBROUTINES 
I  CO  VT l\j£0) 


C0ST7  , DSRu  , ChlC  ITAB1B 


T  VB [ £  5 

LIFE  CYCLF  COST  MCOU  C TOSS- REFERENCE  TABLE 
VARIABLES  }Y  SUBROUTINES 
I  CO  41  JNUED) 


O  UJ 

cr  tr 

tu  ui 
3  X 

lA  * 


u.  l/l  -<  Ifl  K  S 
7  O  a  O  >  cr 

N  J  O  'J  N  3 


—  fl  3 
U  u.  X 
3  3  0 


<  CL 

3  3 


t/»  5- 
O 
a 


a  5- 

in  o 

o  o 


irt  a  <  a  i/u 
O  m  u.  u.  o  ► 
uqnQu* 


id  a> 
CD  »—  I 
u.  i/>  a 
7  O  u) 
NUN 


a  a 
NJ  Q 


i/i  cr  a  c/i  a 

o  u.  iu  O  uj 

UON  O  N 


1  h  1  CD 

CD  CD  CD  a  U  I 
•i  <  a  a  ja 

Hl-I-U.  IUl 
O  O  O  Q  U  NJ 


ft  05  5 
3  U  x  O 
0  3  0  0 


a  Q:  l  ►- 


co  a 
<  u. 
>-  *- 
O  M 


a  a  i 
v  uj  » 
3  x  i 


co 

o 


cr 


a> 

o 


a 


ac 

o 


a 


e> 


UJ  Z 

tr  — • 


a 


cr 


a 


ac 


tr  a  cr 


ac  tr  tr  — 


co 


m 

n 
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H0W9IT(I,NP)  R  C0ST1  DFPR  , COST  1  ,CHLC 


T*O.E  5 

LIFE  CYCLE  COST  MODEL  CROSS-REFERENCE  TABLE 
VARIABLES  3V  subroutines 
(COVT INUEO) 


UBiE  5 

LIFE  CYCLE  COST  MOOiL  CROSS-REFERENCE  TABLE 
VARIABLES  3Y  SUBROUTINES 

( CO  Vl inuedj 


TIL.  E  5 

LIFE  CYCLE  COST  VOCiw  CROSS-REFERENCE  TABLE 
VARIA6.ES  3Y  SLBROl'T  INFS 
( CONTINUED) 


T*B.E  5 

E  COST  MOOiL  CROSS-RETERTNCE  TABLE 

variables  3>  subroutines 
(CO*' INUED) 


Z^'*EO 


T\GlE  5 

E  COST  VOOIl  CROSS-REFERENCE  T451E 
VARIABLES  5*  SUBROUTINES 
[CONTINUED) 


CQST3  .INITAX 


SAMHf 


TADiE  5 

‘  JFE  CYCLE  COST  VQO l L  CROSS-REFERENCE  TA8LE 
variables  jy  subroutines 
(CO*T  1NUED) 


o  o 


APPENDIX  F 


RLA  PROGRAM  FORTRAN  SOURCE  CODE 


J.J.  J-. 


uu  j.  .y  y.  .1. 


,  j_  _y..y _y  _y  j_  _y.y  .y  j.  jy 


q  .yjjjjjjj 


800620  115703351 


.U  Jj.Jj.J-_U  J- Jj.Jj.Jj,  j.. 


■  _i_j.jj.jjj_ 


COMMON  /EXITXX/  EXITXX 
INTEGER  EXITXX 
COMMON  /1TERXX/  ITERXX 
COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /RERDXX/  RERDXX 
INTEGER  RERDXX 
COMMON  /NERRXX/  NERRXX 
COMMON  /NERRYY/  NERRYY 
COMMON  /REDOXX/  REDOXX 
INTEGER  REDOXX 


1  FORMAT( 1H1//22H  PROGRAM  STOPS  DUE  TO  ,14, 

+  16H  ERRORS  ON  INPUT) 

C 
C 
C 
C 

qJjJjJjJ.  j.  j-^_y_y  jj-y  j.  j.  j.j.^  j.^  jj.y  j..^  j__i__y  j.  j--y^.y.yjj  Jj-y^y.'j^yjj^u.y^yjj.yjj  jjjj_y-yj_  J- J__y  Jjjj-i-^yjj  jjj_  j.  jjjj  j.  j 

C*  INITIALIZE  SENSITIVITY  PRINT  PARAMETERS 

q  j..y.y  jjjj  Jjjj.ij.(j.y.y^..(jjjjjjjjjjjjj.ujjj^jj  jjjjjjjj^u.y.yjjjj.y^jjjujj.yjjJjj.Jj  jjjyjuju.yjyjjjyj.jjjjj._yjj  JjJjJjJjJ 

C 


CALL  INITAL 
NERRXX=0 
REWIND  11 
REWIND  12 
REWIND  13 
CALL  READ1 
CALL  READ2 
CALL  READ3 
NERRYY=NERRXX 
2  CONTINUE 


C 

C 

C 

Q  *************  *  *****************■***■*}>■*•**  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *****  **  **  V.-  *  *  *  **** 
C*********************************************************************** 


C*  PRINT  THE  INPUT  DATA  VALUES. 
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PRECEDING  PAG*  BLANK -NOT  FILM® 


c 

CALL  ITAB1 
CALL  ITAB2 
CALL  ZTRAN 
C 
C 
C 

Q-*  |  i*  r  -  *  ^  ,  <  ff  *‘-*11  1  •*i  ,i  4  '--*-  »j  i*  >*■■*■  l--1  r  *-  *  ,'<  a^-T--f-Ml-  ,yr  ■,ji>ialr-l-i>l»l--,-^l--lfc-«l-~<l««  t‘  "#W~"lf~lV">l-i*-|VT>"  ■*  '~*~^  ~  - 1  -'-  *U  J« 

C*  STOP  IF  ANY  ERRORS  WERE  FOUND  ON  INPUT. 

Q Vr V? < V * V ‘V 'iV * W? ^W' V' * V ' VVr ^Wr Vr Vr ‘V * VVr <V * VV? Vc V >  Vr Vr Vc ‘ V Vr * W? V? ^ *V ' Wr Vr VvVr <VV? Vr «'r ' VVr Vc * V ^ ~ Wr V » V? Vc Vr Vr *V Vr ~ VVr ‘V Vr 

c 

NERRXX=NERRYY 
IF (NERRXX . EQ . 0)  GO  TO  4 
WRITE(7, 1)NERRXX 
STOP 

4  CONTINUE 
C 
C 
C 

^Li x »*« j* **■  j* ,l j« j* nU  j. ^**|» -*•  "VVrVrTV^i Vc  VrVr  Vc  V*  /V  y**V VrVr  «V*V  >V~Wr  «V*V 

C*  LCC  CALCULATIONS  * 

C 

CALL  ZISINO 
CALL  INITAX 
CALL  STEPO 
CALL  STEP1 
CALL  STEP2 
CALL  STEP 3 
CALL  STEP4 
C 
C 
C 

Q^y«^i.  'A'VrVf^Wf^V^V^fff  rfVfV»^fV*'iVrf  ifV'VfVf  >f^f*V  r»  «l**1?»V*VV>*1*TW»*lnlf*lf^>^*V«*V'iV^»  ^^fV* ^»*V*'»*l‘»f^*1*  i1? 

c 

C*  PRINT  OUTPUT  TABLES  AT  TERMINAL  AND/OR  OFFLINE  PRINTER 
C 

CALL  0UT9A 
CALL  0TAB1 
C 
C 
C 

C**************************************************************V“ 


688  CONTINUE 


C 

999  STOP 
C 

END 
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SUBROUTINE  READ1 


C 


800620  115546520 


C********** 


■J.J.  XJ.  .»..  .I— 


C*  READS  THE  LRU/SRU  CROSS  REFERENCE  DATA 
C*  FILE  FROM  CHANNEL  11 

q  tV  iV  vV  il"V‘'r  iVVryr^rVriV  «Wr*V  iViViTiV  V*  (ViV*V  jr*’**’‘V?'irilr7lrili‘7lriVi'*1 

c 


.  a _ u.u  a.  .l.  j,  a.  j.  .i.  j.  .u  a,  .t_  a-  _<•  a- a. 


COMMON  / IL/  IL 

COMMON  /ILINO/  ILINO(120) 

COMMON  / ISRU/  ISRU( 120 , 30) 

COMMON  /MXIL/  MXIL 
COMMON  /NDS/  NDS(120) 

COMMON  /QPA/  QPA( 120 , 30) 

COMMON  /NERRXX/  NERRXX 
COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
DATA  XXSTAR/ 1H*/ 

1  FORMAT( A1 ,I3,I2,14(I3,F2.0)) 

2  FORMAT (A1 , 5X , 14 ( I  3 , F2 . 0) ) 

3  FORMAT (A1 ) 

4  F0RMAT(/49H  UNIT  11  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 
+17X , 37HMAXIMUM  NUMBER  OF  CARDS  WERE  READ  IN.) 

C 

C 

MX  I  L=0 


DO  220  IXXX1=1 , 120 

READ (11,  1)  XXC0L1 , IL , NDS ( IL) , ( I SRU ( IL ,K1 ) ,QPA( IL,K1),K1=1,14) 

IF (XXCOL1 . EQ . XXSTAR)  RETURN 

MX I L= I XXX 1 

I LINO ( IXXX1 )=IL 

J2=14 

J3=14 

211  CONTINUF 

IF( . NOT. (NDS(IL) . GT. J3 . AND . NDS(IL) . LE . 30) )  GO  TO  210 
J2=J3+1 
J3=J2+13 

READ( 11 ,  2)  XXCOL, (ISRU(IL,K1) ,QPA(IL,K1) ,K1=J2, J3) 

IF (XXCOL.NE. XXSTAR)  GO  TO  211 
210  CONTINUE 
220  CONTINUE 


C 


READ (11,  3)  XXC0L1 
IF (XXCOL1 . EQ . XXSTAR)  RETURN 
NERRXX=NERRXX+ 1 
WRITE (7 ,4) 

RETURN 

END 
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o  n 


SUBROUTINE  READ2 


C  800620  115551971 

Q^,u*y?*^*yp^,.f,u^.u^.y^^*,i..;r,u,u.;-vr*Vr*Vf******************************Vfyr**Vr*Vr***'** 

C*  READS  THE  ITEM  MAINTENANCE  DATA  FILE  * 

C*  FROM  CHANNEL  19  * 

c 


COMMON  /BCMH/  BCMH(150) 

COMMON  /BMH/  BMH(150) 

COMMON  /CON'D/  COND(ISO) 

COMMON  /DMH/  DMH(150) 

COMMON  /FPR/  FPR( 150) 

COMMON  /I/  I 
COMMON  /INO/  INO ( 150 ) 

COMMON  / IPCF/  IPCF (150) 

REAL  IPCF 

COMMON  /LRU/  LRU (150) 

COMMON  /MTBMI /  MTBMI (150,4) 

REAL  MTBMI 
COMMON  /MXI/  MX I 
COMMON  /NRTS/  NRTS(150) 

REAL  NRTS 

COMMON  /RIP/  RIP( 150) 

COMMON  /RL/  RL( 1 50 ) 

INTEGER  RL 

COMMON  /P.MH/  RMH(  150) 

COMMON  /RTS/  RTS (150) 

COMMON  /NERRXX/  NERRXX 
COMMON  / PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
DATA  XXSTAR/1H*/ 

1  FORMAT (A1,I3,4F8.0,F4,3,F3.2,F5.2,3F4.3,4F4.2,I1) 

2  FORMAT(Al) 

3  F0RMAT(/49H  UNIT  13  ERROR:  END  OF  FILE  CARD  NOT  FOUND  AFTER/ 
+17X , 37HMAXIMUM  NUMBER  OF  CARDS  WERE  READ  IN.) 


MX  1=0 

DO  210  IXXX1=1 , 150 
LRU ( I )=- 1 

READ (13,  1)  XXCOL1 , I , (MTBMI ( I ,K1 ) ,K1=1 ,4 ) ,FPR( I ) ,RIP( I ) , IPCF ( I ) , 
+  RTS ( I ) , NRTS ( I ) , COND ( I ) , RMH ( I ) , BCMH ( I ) , BMH ( I ) , DMH (I) , RL ( I ) 

IF(XXC0L1 .EQ.XXSTAR)  RETURN 
MXI=IXXX1 
INO( IXXX1 )=I 
210  CONTINUE 
C 
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READ( 13 ,  2)  XXC0L1 
IF(XXCOLl.EQ.XXSTAR)  RETURN 
NERRXX=NERRXX+ 1 
WRITE (7 ,3) 

RETURN 

END 


t 


o  o 


SUBROUTINE  RE AD 3 


C 


800620  115554898 


£*********************■ 


A********************- 


r********************?V*** 


C*  READS  THE  TIAC(I,6)  FILE 
C*  FROM  CHANNEL  12 

c 

COMMON  /DUM/  DUM 
INTEGER  DUM 
COMMON  / DUMM /  DUMM 
INTEGER  DUMM 
COMMON  /I/  I 
COMMON  /INO/  I NO ( 150) 
COMMON  /MXD/  MXD 
COMMON  /MXDD/  MXDD 
COMMON  /MXI/  MX I 
COMMON  /TIAC/  TIAC( 150,6) 
INTEGER  FINISH 
INTEGER  START 
INTEGER  XI 

1  FORMAT (13) 

2  F0RMAT(6(I3,1X,F8.1,1X)) 

3  FORMAT(Al) 


,  y-  _U  -U  -U  j.  j.  . 


..u  -i- _i_  .  j.  j. 


MXDD=0 

DO  230  DUMM= 1 , 6 
READC12,  1)  XI 
MXDD=DUMM 
MXD=0 

DO  220  DUM=1 ,XI ,6 
START=DUM 
FINISH=DUM+5 

IF( .NOT. (FINISH. GT. XI) )  GO  TO  210 
FINISH=XI 
210  CONTINUE 

READ( 12 ,  2)  (IN0(K1),TIAC(IN0(K1), DUMM), K1=START, FINISH) 
220  CONTINUE 

READ (12,  3)  XXSIGN 
MXDD=DUMM 
230  CONTINUE 

RETURN 

END 
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'J* 


non 


SUBROUTINE  ITAB1 
C 

C*  LRU/ SR U  CROSS  REFERENCE  DATA 


800620  115556296 

.  J.  .1.  J.  J.O.J.  J-  J.  .1.  J,  .1.  .1.  J.  J. 


COMMON  /PRNTXX/  PRNTXX 

INTEGER  PRNTXX 

COMMON  /FULLXX/  FULLXX 

INTEGER  FULLXX 

COMMON  / I L/  IL 

COMMON  / I LTNO/  ILINO(120) 

COMMON  / I SRU/  I SRU (120,30) 

COMMON  /MXIL/  MXIL 
COMMON  /NDS/  NDS(120) 

COMMON  /Q PA/  QPA( 120,30) 

COMMON  /XXCOL1/  XXCOL1 
DATA  XXSTAR/1H-7 

1  FORMAT! 1H1 /30X , 59HINPUT  TABLE  1:  LRU/SRU  CROSS  REFERENCE  DATA  I FR 
+OM  FILE  8B ) ) 

2  FORMAT ( 5 9X, 1 lH(CONTINUED)//) 

3  FORMAT C / / 9X , 4H4SRU , 4X , 12HSRU  SRU  ,3X,12HSRU  SRU  ,3X,12HSRU 
+  SRU  , 3X, 12HSRU  SRU  ,3X,12HSRU  SRU  ,3X,12HSRU  SRU 
+,3X, 12HSRU  SRU  / IX , 3HLRU , 5X , 5HTYPES , 3X , 12H INDEX  QUAN- . 3X, 12HI 
+NDEX  QUAN-, 3X.12H INDEX  QUAN- , 3X, 12HINDEX  QUAN- , 3X , 1 2HINDEX  QUA 
+N- , 3X , 1 2H INDEX  QUAN- , 3X , 12HINDEX  QUAN-/ IX , 5HINDEX , 3X , 6HIN  LRU.2X 
+.12HNO.  TITY  , 3X, 12HNO .  TITY  .3X.12HNO.  TITY  ,3X,12HNO. 

+  TITY  , 3X, 12HNO.  TITY  ,3X,12HNO.  TITY  .3X.11HNO.  TITY/1X 
+,4H(IL) ,4X,5H(NDS) ,3X, 12H(ISRU)  (QPA ) , 3X , 12H ( I SRU)  (QPA) , 3X, 12H( IS 
+RU)  (QPA) ,3X, 12H(ISRU)  (QPA) ,3X, 12H( I SRU)  (QPA) ,3X, 12H( I SRU)  (QPA) 
+  ,3X, 12H( ISRU)  (QPA)//) 

4  FORMAT  ( 2X  ,  I  3 . 5X  ,  I  3 , 5X  ,  1 3 , 3X ,  F4 . 0 , 5X  ,  1 3 , 3X ,  F4 . 0 , 5X  ,  I  3 , 3X  ,  F4 . 0 , 5X  ,  I  3 
+ , 3X , F4 . 0 , 5X , 1 3 , 3X ,F4 . 0 , 5X , 1 3 , 3X , F4 . 0 , 5X , 1 3 , 3X , F4 . 0/ 18X , 1 3 , 3X , F4 . 0 , 
+5X , I  3 , 3X , F4 . 0 , 5X , 1 3 , 3X , F4 . 0 , 5X , I  3 , 3X , F4 . 0 , 5X , 1 3 , 3X , F4 . 0 , 5X , I  3 , 3X , F 
+4.0.5X, I3,3X,F4.0) 

5  FORMAT ( 18X, 13, 3X.F4. 0,5X, 13 , 3X.F4 . 0 ,5X , 13, 3X,F4. 0 , 5X, 13 

+  ,  3X ,  F4 . 0 , 5X  ,  1 3 , 3X  ,  F4 . 0 , 5X ,  I  3 , 3X ,  F4 . 0 , 5X ,  I  3 , 3X , F4 . 0/  1 8X ,  I  3 , 3X ,  F4 . 0  , 
+5X , I  3 , 3X , F4 . 0 , 5X , 1 3 , 3X , F4 . 0 , 5X , 1 3 , 3X , F4 . 0 , 5X , 1 3 , 3X , F4 . 0 , 5X , I  3 , 3X , F 
+4 . 0 , 5X , 1 3 , 3X , F4 . 0 ) 


IPAGE=40 

IFLAG=1 

DO  240  IXXX1=1 .MXIL 
IL=ILINO( IXXX1 ) 


309 


IF C -NOT. (IPAGE.EQ.40) )  GO  TO  220 
WRITE (  7,  1) 

I PAGE= 1 

IF( . NOT. (IFLAG. NE . 1 ) )  GO  TO  210 
WRITE (  7,  2) 

210  CONTINUE 

WRITE!  7,  3) 

220  CONTINUE 

WRITE!  7,  4)  I L , NDS ! I L ) , ( I SRU ( I L , K 1 ) , QPA (IL,Kl),Kl=l,14) 

J2=14 

J3=14 

241  CONTINUE 

IF! . NOT . (NDS ! I L) . GT . J3 . AND . NDS ( I L) . LE . 30) )  GO  TO  230 
J2=J3+1 
J3=J2+13 

WRITE!  7,  5)  ( l SRU ( I L , K 1 ) , QPA ( I L , K 1 ) , K 1 = J  2 , J  3 ) 
IF(XXCOL. NE . XXSTAR)  GO  TO  241 
230  CONTINUE 
IFLAG=0 
IPAGE=IPAGE+1 
240  CONTINUE 


RETURN 

END 


non  onooo 


SUBROUTINE  ITAB2 


800620  115602424 

*  PRINTS  ITEM  REPAIR-LEVEL-DEVELOPMENT  COSTS  * 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  /I/  I 
COMMON  /I NO/  I NO (150) 

COMMON  /M\I /  MX I 
COMMON  / T 1  AC /  TIACC150.6) 

1  FORMAT! 1H1/38X, 50H INPUT  TABLE  2:  TOTAL  ITEM  SUPPORT  COST  -  TIACCI, 
+R)/48X,3>H (COSTS  IN  THOUSANDS  OF  DOLLARS)) 

2  FORMAT ( 58X , 1 1H (CONTINUED ) / / ) 

3  FORMAT ( //49X , 3 1 HCLOBAL  MAINTENANCE  STRATEGY  -  R/26X.4HITEM, 7X,b8H- 

+• - 

+- / 2bX , 5H 1 NDEX , 9X , 1H 1 , 1 IX , 1H2 , 1 IX , 1H3 , 1 IX , IH4 , 1 IX , 1H5 , 1 IX , 1H6// ) 

4  FORMAT l 27X , I3,7X.b(F8. 1 ,4X1) 


I  PAGI;=40 
1  FLAG=  i 

DO  230  I  XXXI  =  1 , MX  1 
I  =  I  NO '  I  XXXI  ) 

IFl  .NOT.  (  H  AGE.Fg.40)  i  GO  TO  220 
WRITE (  7,  1) 

1  l’AGE=  1 

I F ( . NOT . l I F LAG . NK . 1 ) )  GO  TO  210 
WRITE)  7,  2) 

210  CONTINUE 

WRITE l  7,  3) 

220  CONTINUE 

WRITE l  7 ,  4)  I , f  T I  AC  f I , K 1 ) , K 1  =  1 , t ) 
I FLAG=0 
I PAGE= I PAGE+ 1 
230  CONTINUE 

RETURN 

END 
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n  n 


SUBROUTINE  ZTRAN 


C  800620  115614729 

C******************************-***************************************** 
C*  CALCULATES  NTL(IS) ,TQPA,  AND  LRU(I)  * 

C**********************»v************************************************ 
C 

COMMON  /PRNTXX/  PRNTXX 

INTEGER  PRNTXX 

COMMON  / I L/  IL 

COMMON  /I LI NO/  I LINO (120) 

COMMON  /IS/  IS 

COMMON  / ISRU/  ISRU( 120 , 30) 

COMMON  /ISXREF/  ISXREF(150) 

COMMON  /LRU/  LRU (150) 

COMMON  /MXIL/  MXIL 
COMMON  / MX I S /  MXIS 
COMMON  /N'DL/  NDL(150) 

COMMON  /NDS/  NDS(120) 

COMMON  /NERRYY/  NERRYY 
COMMON  /NTL/  NTL(150) 

COMMON  /QPA/  QPA( 120 , 30) 

COMMON  /TQPA/  TQPA( 150 , 120) 

INTEGER  TQPA 

1  FORMAT (//IX, 17 H***  ERROR  -  ITEM  ,I3,39H  IS  LISTED  AS  BOTH  AN  LRU  A 
+ND  AN  SRU  IN.16H  THE  QPA  MATRIX.) 

2  FORMAT (//IX, 17 H***  ERROR  -  ITEM  ,I3,39H  IS  LISTED  AS  BOTH  AN  LRU  A 
+ND  AN  SRU  IN.16H  THE  QPA  MATRIX.) 


DO  270  IXXX1=1 , MXI L 
1 1.=  I L I  NO  ( I XXX 1 ) 

IF (  .NOT.  (LRl’(  IL)  .EQ.O) )  GO  TO  210 
WR I TE ( 7 , 1 ) I L 

NERRYY =NERR YY+ 1 
210  CONTINUE 

I F (  .  NOT .  ( LRU (  i  I, )  .  EQ .  -  1  )  )  GO  TO  220 
LRU( I L )= 1 
220  CONTINUE 

C . THESE  4  STMTS  IMPLEMENT  THE  POINTER  MATRIX 

NXXX 1=NDS ( I L) 

IKNXXXl .EQ.O)  GO  TO  260 
DO  250  JXXX1=1 ,NXXX1 
I S= I SRU ( I L , JXXX 1 ) 

IK.  NOT .  ( LRU ( I S ) .  EQ .  1 ) )  GO  TO  230 
WRITE ( 7 , 2 )  IS 
NERRYY=NERRYY+1 


312 


230  CONTINUE 

I F ( . NOT . ( LRU (IS).EQ.-l))  GO  TO  240 
LRU ( I S ) =0 
240  CONTINUE 

NTL ( I S ) =NTL ( I S ) +QPA ( I L , JXXX I ) 

NDL( IS )=NDL( IS )+l 
TQPA( IS,NDL(IS))=IL 
250  CONTINUE 
260  CONTINUE 
270  CONTINUE 

RETURN 

END 


o  o 


SUBROUTINE  ZISINO 


C  800620  115622448 

C***************************rtVnV*****rtrt******************************'*'*** 

C*  CALCULATES  ISINO( 150)  * 


COMMON  /I/  I 
COMMON  /INO/  INO(ISO) 
COMMON  /ISINO/  ISINO(ISO) 
COMMON  /LRU/  LRU (150) 
COMMON  /MXI/  MX I 
COMMON  /MXIS/  MX IS 


MXIS=0 

DO  220  IXXX1=1,MXI 
I=INO( IXXXl ) 

IF ( .NOT. (LRU(I) .EQ.O))  GO  TO  210 
MXIS=MXIS+1 
ISINO(MXIS)=I 
210  CONTINUE 
220  CONTINUE 

RETURN 

END 


SUBROUTINE  INITAX 


C 

c 

C' 

c 

c 


-L U -I- ,r_. 

*  INITIALIZES 

-U  ^UJU  .J.  .U.l- , 


800620  115622777 


COMMON  /AIAC/  AIAC (150, 3) 
COMMON  /I/  I 
COMMON  / IL/  IL 
COMMON  /ILINO/  ILINO(120) 
COMMON  /INO/  INO( 150) 

COMMON  /IS/  IS 

COMMON  /ISINO/  ISINO( 150) 

COMMON  /J/  J 

COMMON  / LCRL/  LCRL( 150) 

COMMON  /LCRLS/  LCRLS ( 120 , 150 ) 

COMMON  /LCRS/  LCRS(150,3) 

COMMON  /MXI /  MX I 

COMMON  /MXIL/  MXIL 

COMMON  /MX IS/  MX IS 

COMMON  /MXJ/  MXJ 

COMMON  /TLAC/  TLAC(I20) 

COMMON  /TSAC/  TSAC( 120,3) 

C 

C 


DO  230  IXXX1=1 .MXIL 
IL=ILINO( 1XXX1 ) 

TLAC ( IL)=0 . 

DO  210  IXXX2=1 ,MXIS 
IS=ISINO( IXXX2) 
LCRLS ( II, ,  IS  )=() 

210  CONTINUE 

DO  220  J=1 , MXJ 
TSAC ( I L , J )=0 . 

220  CONTINUE 


C 

230  CONTINUE 

DO  250  I XXX 1 = ! , MX I S 
1 S= I S I  NO ( IXXX1) 

DO  240  J=1 ,MXJ 
AIAC ( IS , J)=0 . 
LCRS( IS , J)=0 
C 

240  CONTINUE 
250  CONTINUE 
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1 


DO  260  IXXX1=1,MXI 
I=IN0(IXXX1 ) 
LCRL( I )=0 
260  CONTINUE 

RETURN 

END 


i 


i 

j 


i 
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i 


ro  ro 


SUBROUTINE  STEPO 


C  600620  115623469 

C*  SETS  SOME  LCRL'S 

£  J.  .4  .4  -U  JU 

c 

COMMON  /COND/  COND(150) 

COMMON  / I L/  IL 
COMMON  /I  LINO/  I  LINO (120) 

COMMON  /IS/  IS 
COMMON  / I S I  NO/  ISINO( 150) 

COMMON  / ISRU/  I SRU( 120,30) 

COMMON  / ] SXREF/  ISXREF(150) 

COMMON  / LCRL/  LCRL(150) 

COMMON  /MXIL/  MXIL 
COMMON  /MX IS/  MX IS 
COMMON  /NDS/  NDS(  120) 

C 
C 

DO  240  I XXX 1=1 ,MXIL 
IL=ILINO( I XXXI ) 

IF( .NOT. (COND(IL) .EQ. 1))  GO  TO  230 
LCRL( IL)=3 

C . THESE  4  STMTS  IMPLEMENT  THE  POINTER  MATRIX 

NXXX1=NDS( IL) 

IF(NXXX1 .EQ.O)  GO  TO  220 
DO  210  JXXX1=1 ,NXXX1 
IS=ISRU( IL, JXXX1 ) 

LCRL( IS)=3 
210  CONTINUE 

220  CONTINUE 

30  CONTINUE 
40  CONTINUE 

DO  260  IXXX1=1 , MXIS 
IS=ISINO( I XXXI ) 

IF( .NOT. (COND(IS).EQ. 1))  GO  TO  250 
LCRL(IS)=3 
250  CONTINUE 
260  CONTINUE 

RETURN 
END 
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SUBROUTINE  STEP1 


800620 


CALCULATES  TSAC(IS,J)  AND  LCRS(IS.J) 


A.  .1. 


COMMON  /DUM/  DUM 
INTEGER  DUM 
COMMON  /IS/  IS 
COMMON  /ISINO/  ISINO( 150) 

COMMON  /LCRS/  LCRS( 150,3) 

COMMON  /LRU/  LRU (150) 

COMMON  /MXD/  MXD 
COMMON  /MXIS/  MX  IS 
COMMON  /TIAC/  T1AC( 150,6) 

COMMON  /TSAC/  TSAC(120,3) 

C 

C 

DO  260  I XXX 1  =  1 , MXIS 
I S= I S I NO ( I XXX 1 ) 

TSAC (IS, 1 )=AMIN 1(TI AC (IS, 1), TIAC (IS, 2), TIAC (IS, 3)) 
TSAC ( I S , 2 )=AMIN 1 (TI AC ( IS , 4 ) , T I  AC ( I S , 5 ) ) 

TSAC (IS,3)=T1AC(1S,6) 

I F  (  .  NOT  .  (  LRU  (IS)  . EQ . 0) )  GO  TO  250 
DO  220  DUM= 1 , 3 

I F  ( .  NOT .  ( T I  AC  ( I S  ,  DUM )  .  F,Q .  TSAC  ( I S  ,  1 ) ) )  GO  TO  210 
LCRS (IS, 1 )=DUM 
210  CONTINUE 

220  CONTINUE 

DO  240  DUM=4 , 5 

I F (  .NOT.  (TI  AC(  IS  ,Dl'M) .  EQ  .TSAC ( IS , 2) ) )  GO  TO  230 
LCRS (IS, 2 )=DUM 
230  CONTINUE 

240  CONTINUE 

LCRS ( I S , 3 )=6 
250  CONTINUE 
260  CONTINUE 
C 

RETURN 

END 
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SUBROUTINE  STEP2 


C 

C*  CALCULATES  TSAC(IL,J^  AND  TLAC(IL) 
C 

COMMON  /XL/  IL 

COMMON  /ILINO/  ILINO(I20) 

COMMON  /IS/  IS 

COMMON  /ISRU/  ISRU( 120 , 30) 

COMMON  / ISXREF/  ISXREF(ISO) 
COMMON  / J/  J 

COMMON  /LCRS/  LCRS(150,3) 

COMMON  /MXIL/  MXIL 
COMMON  /MX IS/  MX IS 
COMMON  /MXJ /  MXJ 
COMMON  /NDS/  NDS(120) 

COMMON  /NTL/  NTL(150) 

COMMON  /QPA/  QPA( 120,30) 

COMMON  /TLAC/  TLAC(120) 

COMMON  /TSAC/  TSAC(120,3) 

COMMON  /TIAC/  TIAC(150,6) 

C 


800620  115632728 


DO  240  J= 1 , MXJ 

DO  230  IXXX2=1,MXIL 
I L=ILINO( IXXX2 ) 

C . THESE  4  STMTS  IMPLEMENT  THE  POINTER  MATRIX 

NXXX 1=NDS  C  IL) 

IF(NXXXl.EQ.O)  GO  TO  220 
DO  210  JXXX 1=1 .NXXX 1 
1 S= I SRU ( I L , JXXX1 ) 

TSAC ( I L , J ) =TSAC ( I L , J )+ (TSAC (IS, J )*QPA ( I L , JXXX 1 ) /NTL (IS) ) 
+  +(TIAC ( IL, LCRS ( IS , J) )/NDS ( IL) ) 

210  CONTINUE 

GO  TO  230 
220  CONTINUE 

IF(J.EQ.l)  Kl=l 
IF(J.NE.l)  K1=2*J 
TSAC (IL,J)=TIAC(IL,K1) 

230  CONTINUE 
240  CONTINUE 

DO  250  IXXX1=1,MXIL 
IL=ILINO( IXXX1 ) 

TLAC ( IL)=AMIN1 (TSAC(IL, 1 ) ,TSAC( IL, 2) ,TSAC (IL, 3) ) 

250  CONTINUE 


RETURN 

END 
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SUBROUTINE  STEP3 


800620  115636632 


CALCULATES  LCRL(IL)  AND  LCRS ( I L, IS) 


_ f _ _J _ t _ > _ i—  - ' — i„_*.  j _ u-u-'-.u 


f  -U  Jj.  «U  J.  -U  J*  -I-  J-  J-  J -  -If  J-  j-  -Jj  Jj.  J 


COMMON  / I L/  IL 

COMMON  / ILINO/  ILIN0(120) 

COMMON  /IS/  IS 

COMMON  /ISINC/  1SINO ( 150 ) 

COMMON  / ISRU/  ISRU (120,30) 

COMMON  / J/  J 

COMMON  /LCRL/  LCRL(150) 

COMMON  /LCRLS/  LCRLS(120, 150) 
COMMON  /LCRS/  LCRS(150,3) 
COMMON  /MXIL/  MXIL 
COMMON  /MXIS/  MX IS 
COMMON  /MXJ/  MXJ 
COMMON  /NDS/  NDS(120) 

COMMON  /TLAC/  TLAC(120) 

COMMON  /TSAC/  TSAC(120,3) 


DO  230  I XXX 1 = 1 , MX I L 
IL=ILIN0(IXXX1) 

DO  220  J=1 ,MXJ 

IF( .NOT. ((TSAC(IL.J) . EQ.TLACC IL) ) .AND. (LCRL(IL) .EQ. 

+  0)))  GO  TO  210 

LCRL( IL)=J 
210  CONTINUE 

220  CONTINUE 
230  CONTINUE 

DO  280  I XXX 1=1 ,MXIL 
IL=ILINO( IXXX1 ) 

C . THESE  4  STATEMENTS  IMPLEMENT  THE  POINTER  MATRIX 

NXXX1=NDS ( IL) 

IF (NXXX1 . EQ . 0 )  GO  TO  275 
DO  270  IXXX2=1 , NXXX1 

IS=ISRU(IL, IXXX2) 

IF( . NOT. (LCRS ( IS , LCRL( IL) ) . EQ . 1 ) )  GO  TO  240 
LCRLS ( IL, IS)=1 
240  CONTINUE 

IF ( .NOT. ((LCRS(IS,LCRL(IL)) .EQ. 3) .OR. (LCRS ( IS , LCRL( IL) ) .EQ. 

+  5 ) . OR . (LCRS ( IS , LCRL( IL)) . EQ . 6) ) )  GO  TO  260 

LCRLS ( I L, IS)=3 
260  CONTINUE 


I F ( . NOT. ( (LCRS(IS , LCRL( IL) ) . EQ . 2) . OR . (LCRS(IS ,LCRL(IL) ) . EQ. 
+  4)))  GO  TO  250 

LCRLS(IL, IS)=2 
250  CONTINUE 

270  CONTINUE 
275  CONTINUE 
280  CONTINUE 

RETURN 

END 


321 


o  o 


SUBROUTINE  STEP4 


C*  CALCULATES  LCRL(I) 

c 


COMMON  /AIAC/  AIAC(150,3) 

COMMON  /DUM/  DUM 

INTEGER  DUM 

COMMON  / I L/  IL 

COMMON  /ILINO/  IL1N0(120) 

COMMON  / ILXREF/  ILXREF(120) 

COMMON  /IS/  IS 

COMMON  /ISINO/  ISINO( 150) 

COMMON  / ISRU/  ISRU (120,30) 

COMMON  /ISXREF/  ISXREF(150) 

COMMON  /LCRL/  LCRL(150) 

COMMON  /LCRLS/  LCRLS ( 120 , 150) 
COMMON  /MXD/  MXD 
COMMON  /MXIL/  MXIL 
COMMON  /MXIS/  MX IS 
COMMON  /NDL/  NDLCI50) 

COMMON  /NDS/  NDS(  120) 

COMMON  /NTL/  NTLC150) 

COMMON  /QPA/  QPA( 120,30) 

COMMON  /TIAC/  TIAC( 150,6) 

COMMON  /TQPA/  TQPA( 150 , 120) 

INTEGER  TQPA 

INTEGER  COUNT 

INTEGER  R2 

INTEGER  TEST! 

INTEGER  TEST1A 
INTEGER  TEST IB 
INTEGER  TEST2 
INTEGER  TEST3 
INTEGER  TEST4 
INTEGER  TEMP 
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C 

DO  250  DUM=2 , 3 

DO  240  IXXX2=1 ,MXIL 
IL=ILINO(IXXX2) 

R2=DUM 

IF ( .NOT . (LCRL(IL) . EQ . 2) )  GO  TO  210 
R2=R2+2 

210  CONTINUE 

C . THESE  4  STMTS  IMPLEMENT  THE  POINTER  MATRIX 

NXXX1=NDS ( IL) 
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IF(NXXXl.EQ.O)  GO  TO  230 
DO  220  JXXX1=1 ,NXXX1 
IS=1SRU( IL, JXXX1) 

A I  AC  ( IS  ,  DUM)=AIAC  (IS  ,DUM)+TIAC  ( IS ,R2 )*QPA( IL, JXXX1  )/N'TL(  IS) 
220  CONTINUE 

230  CONTINUE 

240  CONTINUE 
250  CONTINUE 

DO  430  IXXX1=1 ,MXIS 

TEST1=0 

TEST1A=1 

TEST1B=1 

TEST2=0 

TEST3=0 

TEST4=0 

IS=ISINO(I XXX 1 ) 

C0UNT=0 

IF ( .NOT. (NDL(IS) .GT. 1))  GO  TO  310 
TEST1A=0 

. THESE  4  STMTS  IMPLEMENT  THE  POINTER  MATRIX 

NXXX1=NTL( IS ) 

IF (NXXX1 .EQ.O)  GO  TO  300 
DO  290  JXXX1=1,NXXX1 
IL=TQPA( IS , JXXX1 ) 

COUNT=COUNT+l 

IF ( .NOT. (COUNT. EQ. 1))  GO  TO  260 
TEMP=LCRLS ( IL , IS) 

260  CONTINUE 

IF(. NOT. ((COUNT. GT.l). AND. (TEST1B.EQ. 1)))  GO  TO  280 
IF ( . NOT . (LCRLS ( IL, IS) . NE . TEMP) )  GO  TO  270 
TEST1B=0 

270  CONTINUE 

TEMP=LCRLS ( I L , I S ) 

280  CONTINUE 

290  CONTINUE 

300  CONTINUE 

310  CONTINUE 

IF ( .NOT. (NDL(IS) .EQ. 1))  GO  TO  311 
IL=TQPA(IS, 1) 

TEMP=LCRLS ( I L , I S ) 

311  CONTINUE 

IF( .NOT. ((TEST1A.EQ. 1) .OR. (TEST1B.EQ. 1)))  GO  TO  320 
TEST1=1 

320  CONTINUE 

IF( .NOT. ((TEST1A. EQ.O) .AND. (TEST1B. EQ.O)))  GO  TO  360 

. THESE  4  STMTS  IMPLEMENT  THE  POINTER  MATRIX 

NXXX1=NTL( IS) 


IF (NXXX1 .  EQ  .  0)  GO  TO  350 
DO  340  JXXX1=1 ,NXXX1 
I L=TQPA (IS, JXXX 1 ) 

IF( .NOT. (LCRL(IL) .EQ.3))  GO  TO  330 
TEST2=1 

330  CONTINUE 

340  CONTINUE 

350  CONTINUE 

360  CONTINUE 

IF ( .NOT. (((TEST1A.EQ.0) .AND. (TEST1B .EQ.O) ) .AND. (TESTS . EQ. 
+  0)))  GO  TO  390 

I F ( . NOT . ( A I AC ( I S , 3 ) . LE . A I AC ( I S , 2 ) ) )  GO  TO  370 
TF.ST3=1 

370  CONTINUE 

IF (.NOT. (TEST3.EQ.0))  GO  TO  380 
TEST4=1 

380  CONTINUE 

390  CONTINUE 

IF(. NOT. ((TEST1.EQ.1). AND. (LCRL(IS). EQ.O)))  GO  TO  400 
LCRL(IS)=TEMP 
400  CONTINUE 

IF( .NOT. ( ( (TEST2.EQ. 1) .OR . (TEST3 .EQ . 1 ) ) . AND . (LCRL( I S ) .EQ. 
+  0)))  GO  TO  410 

LCRL( I S ) =3 
410  CONTINUE 

IF(. NOT. ((TEST4.EQ.1). AND. (LCRL(IS). EQ.O)))  GO  TO  420 
LCRL(IS)=2 
420  CONTINUE 
430  CONTINUE 

RETURN 

END 


SUBROUTINE  OUT9A 


C  800620  115652880 

0****tV*Vf.V**Vf.Wr***-.V**-.V**5V-**vV*-***************************************Vr**-,,r5V 

C*  WRITES  THE  ITEM  MAINTENANCE  DATA  FILE  * 

C*  TO  CHANNEL  14  * 

C***lV********5VV.-5V-.V****Vr*Vf***/r******************************************** 

C 

COMMON  /PR.NTXX/  PRN'TXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  / BCMH/  BCMH(150) 

COMMON  /BMH/  BMH(150) 

COMMON  /CON'D/  CONDC150) 

COMMON  /DMH/  DMH(150) 

COMMON  /FPR/  FPR( 150) 

COMMON  /I/  I 
COMMON  /INO/  INO( 150) 

COMMON  /IPCF/  IPCF ( 150) 

REAL  IPCF 

COMMON  /LCRL/  LCRL(150) 

COMMON  /MTBM I /  MTBM 1(150,4) 

REAL  MTBM I 
COMMON  / MX I /  MX I 
COMMON  /NRTS./  \RTS(150) 

REAL  NRTS 

COMMON  /RIP/  RIP( 150) 

COMMON  /RMH/  RMH(150) 

COMMON  /RTS/  RTS (150) 

1  FORMAT ( 1H  ,13,418.14,13,15,314,414,11) 

2  FORMAT (1H*) 

C 

C 

C 

C 

DO  210  IXXX1=1,MXI 
I=IN0(IXXX1) 

I 1=MTBMI (1,1) 

I2=MTBMI (1,2) 

I 3=MTBMI (1,3) 

I4=MTBMI (1,4) 

I 5=INT(FPR( I )*1000+ . 99 ) 

I 6=INT(RI P( I )*100+ . 99 ) 

1 7=1 NT ( IPCF ( I )*100+ .99) 

1 8= I NT (RTS ( I )*1000+ . 99) 

I9=INT(NRTS( I  )* 1000+ . 99) 

I 10=INT(COND( I )*1000+ . 99 ) 


I 11=INT(RMH(I)*100+ . 99) 

I 12=INT(BCMH ( I )*100+ . 99 ) 

I13=INT(BMH(I)*100+.99) 

I 14=INT(DMH( I )*100+. 99) 

WRITE (14,  1)  1,11,12,13,14,15,16,17,18,19,110,111,112,113, 
+114, LCRL( I ) 

210  CONTINUE 

WRITE ( 14 ,  2) 

RETURN 

END 
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SUBROUTINE  OTAB1 


C 

C*  REPAIR  LEVEL  ANALYSIS 

£  .U  .t.  ,u  .U.W.  J .  J.  .1.  WU . 

C 


800620  115655511 

jj,.* i__i_  j.  j-_i.  jj.y--ij._y  j- j.  j-.tj. 


.If.' 


COMMON  /PRNTXX/  PRNTXX 
INTEGER  PRNTXX 
COMMON  /FULLXX/  FULLXX 
INTEGER  FULLXX 
COMMON  /I/  I 
COMMON  / INO/  IN0(150) 

COMMON  / LCRL/  LCRL(150) 

COMMON  /LRU/  LRU (150) 

COMMON  /MXI /  MX I 
COMMON  /RL/  RL( 150) 

INTEGER  RL 
DATA  XXBL/1H  / 

DATA  XXSTAR/1H*/ 

1  FORMATf 1H1/A6X, 37HOUTPUT  TABLE  1:  REPAIR  LEVEL  ANALYSIS) 

2  FORMAT (59X, 1 1 H ( CONTINUED ) ) 

3  FORMAT ( /  /  AOX , 7HLRU'  ( 1 ) ,9X, 17HREPAIR  LEVEL  -  RL, 10X.7HRESULTS/29X.A 

+H  ITEM ,  7X ,  2HOR , 1 IX , 2AH . ,6X ,  10HDIFF .  FROM/29X 

+ ,  5H I N’DEX ,  6X ,  7HSRU  ( 0 ) ,  6X ,  AHBASE  ,  AX ,  5HDEP0T ,  AX ,  7HDI SCARD ,  6X ,  16HCONT 
+RACTOR  I N PUT/ 3 OX , 3H ( I ) , 20X , 3H ( 1 ) , 6X , 3H ( 2 ) , 7X , 3H ( 3 ) ) 

A  FORMAT ( 30X ,I3,9X,I1,11X,A1,8X,A1,9X,A1,16X,A1) 


IPAGE=A0 

1FLAG=1 

XXR=XXBL 

XXB=XXBL 

XXF=XXBL 

XXD=XXBL 

DO  270  IXXXI=1 ,MXI 
I=INO( IXXX1 ) 

IF ( .NOT. (RL(I) .NE.LCRL(I)))  GO  TO  210 
XXR=XXSTAR 
210  CONTINUE 

IF( .NOT. (LCRL(I) .EQ. 1))  GO  TO  220 
XXB=XXSTAR 
220  CONTINUE 

IF ( . NOT . ( LCRL ( I ) . EQ . 2) )  GO  TO  230 
XXD=XXSTAR 
230  CONTINUE 
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IF(.N0T.(LCRL(I).EQ.3))  GO  TO  240 
XXF=XXSTAR 
240  CONTINUE 

IF( . NOT. ( IPAGE .EQ. 40) )  GO  TO  260 
WRITE (  1,  1) 

IPAGE=1 

I F ( .NOT. (IFLAG. NE . 1 ) )  GO  TO  250 
WRITE (  7,  2) 

250  CONTINUE 

WRITE (  7,  3) 

260  CONTINUE 

WRITE (  7,  4)  I , LRU ( I ) , XXB , XXD , XXF , XXR 
IFLAG=0 
IPAGE=IPAGE+1 
XXR=XXBL 
XXB=XXBL 
XXF=XXBL 
XXD=XXBL 
270  CONTINUE 
C 

RETURN 

END 
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SUBROUTINE  INITAL 


800620  115702567 


INITIALIZES  VARIABLES  TO  DEFAULT  VALUES. 

COMMON  /NTABXX/  NTABXX 
COMMON  /NERRXX/  NERRXX 
COMMON  /DINO/  DIN0(6) 

INTEGER  DINO 

COMMON  /DIXREF/  DIXREF(l) 

INTEGER  DIXREF 
COMMON  /DUINO/  DUIN0(6) 

INTEGER  DUINO 

COMMON  /DUM/  DUM 

INTEGER  DUM 

COMMON  / DUMM /  DUMM 

INTEGER  DUMM 

COMMON  /DXREF /  DXREF(l) 

INTEGER  DXREF 

COMMON  /I/  I 

COMMON  / IL/  IL 

COMMON  /ILINO/  ILINO(120) 

COMMON  / ILXREF/  ILXREF(120) 

COMMON  /I NO/  INO( 150) 

COMMON  /IS/  IS 

COMMON  /ISINO/  I S I NO ( 150) 

COMMON  / I SRU/  I SRU (120,30) 

COMMON  / ISXREF/  ISXREF(150) 

COMMON  / IXREF/  IXREF(150) 

COMMON  / J/  J 
COMMON  /JINO/  JINO(3) 

COMMON  / JXREF/  JXREF(l) 

COMMON  /MXD/  MXD 
COMMON  /MXDD/  MXDD 
COMMON  /MX I /  MX I 
COMMON  /MXIL/  MXIL 
COMMON  /MXIS/  MX IS 
COMMON  /MXJ/  MXJ 
COMMON  /NDS/  NDSU20) 

COMMON  /NTL/  NTL(150) 

COMMON  /QPA/  QPA( 120,30) 

COMMON  /TPA/  TPA( 150 , 120) 

COMMON  /TQPA/  TQPA(150,120) 

INTEGER  TQPA 

NTABXX=0 

NERRXX=0 
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DO  10  DUMM= 1 , 6 

D I NO ( DUMM ) =DUMM 
10  CONTINUE 

MXI=150 

MXJ=3 

MXD=6 

MXIL=120 

MXIS=150 

MXDD=6 

DO  30  DUM= 1 , 6 

DUINO(DUM) =DUM 
30  CONTINUE 

DO  40  IXXX1=1,1 

DXREF ( I XXX 1 ) = I XXX 1 
DIXREF ( IXXX1 )=IXXX1 
JXREF ( I XXX 1 ) = I XXX 1 
40  CONTINUE 

DO  SO  1=1,150 

INO( I )=I 
50  CONTINUE 

DO  60  IL=1 , 120 

NDS ( IL)=0 

DO  60  IXXX=1 , 30 

ISRUCIL, IXXX)=0 

QPA(IL,IXXX)=0. 00000 

60  CONTINUE 

DO  70  I S= 1 , 150 

NTLC IS) =0 

DO  70  IXXX=1 , 120 

TQPA(IS,IXXX)=0 
TPA(IS,IXXX)=0. 00000 
70  CONTINUE 

DO  80  IL=1 , 120 

ILINOCI L)=IL 
80  CONTINUE 

DO  90  IXXX1=1 , 150 

IXREF ( I XXXI )=IXXX1 
ISXREF ( IXXX1 )=IXXX1 
90  CONTINUE 


DO  100  IS=1 , 150 
ISINO(IS)=IS 
100  CONTINUE 
C 

DO  110  IXXX1=1 , 120 
ILXREF ( IXXX1)=IXXX! 
110  CONTINUE 
C 

DO  120  J=1 , 3 
JINO( J)=J 
120  CONTINUE 
C 

RETURN 

END 
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